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ERROR CODES 


Error codes 0 to 9 are common to the ZX80 (old and new ROMs) and the ZX81. 
Error codes A to F are for new ROM ZX80's and ZX81's only. 


CODE MEANING 


Successful completion 

NEXT with no FOR 

Variable name not found 

Subscript out of range, or error regarding subscript 

Not enough room in memory 

No more room on screen 

Arithmetic overflow 

RETURN with no GOSUB 

Attempt to use INPUT in the direct mode 

STOP statement executed 

Invalid argument to certain functions 

Integer out of range 

The text of the (string) argument of VAL does not form a valid 
numerical expression 

Program interrupted by BREAK or the INPUT line starts with STOP 
Program naine provided (for SAVE) is the empty string 


шіт) оо>оо-чооьом-о 


CONT/CONTINUE is the same as СОТО m, where m is the line number displayed 
after the error code, except after code 9 when it is СОТО m +1 


FIRST STEPS 


Let's get underway by plugging in the ZX81 to get the cursor (that's the white K on 
a little black square) down in the left hand corner of your TV screen. 


Enter the following program, which generates a series of random numbers between 
one and 19. Note that an underlined asterisk (*) means you need a single space in a 
PRINT statement. We'll use this symbol in programs if the space is vital, and might 
not be evident from the context. 


14 SLOU 
29 PRINT INT(RNO*1g) + 1," * "j 
3g GOTO 20 


This program will cause the screen to fill up with numbers between one and 10, gen- 
erated at random. These random numbers are of little use as they are, but come into 
their own when used as part of a game. The following program uses the random 
number generator to produce numbers between one and six for the game RUSSIAN 
ROULETTE. Note that you only need 1K for this game, that is, you do not need 
to plug in the extra memory pack. The standard ZX81 will hold the program. 


The principle of RUSSIAN ROULETTE is simple. You have a pistol with six 
chambers, only one of which contains a bullet. You point the pistol at your head, 
pull the trigger, and . . . either BANG or CLICK. Enter the program, RUN it a few 
times, then come back to the book for a discussion on some of the things you can 
learn from it. 


1g PRINT "YOUR NAME?" 

3g INPUT AS 

5g PRINT "DO YOU WANT TO PLAY, * ";ag;"?" 
6g INPUT ВА т 

74 CLS 

ag ТЕ ВА = "NO" THEN GOTO 279 

9g СЕТ 224 


199 PRINT "PRESS NEULINE" 
11g INPUT СЕ 

120 СЕ 5 

130 LET Ја Ј ча 


160 LET б = INT(RND*6) + 1 
178 IF G < 6 THEN PRINT "CLICK" 
19g IF G = 6 THEN GOTO 22g 
200 IF 3 = 10 THEN GOTO 25g 
218 GOTO 1gg 

228 CLS 

23g PRINT "8ANG..."; 

24g GOTO 23g 

250 PRINT АЯ;" * SURVIVES * ", 
26g GOTO 250 ki 
278 CLS 


28g PRINT "CHICKEN..."; 
29g GOTO 28g 


RUN this program a few times, and then return to this book. There is an incredible 
number of useful things we can learn from this initial program. 


Firstly, you'll see that every line begins with a line number. The line numbers on a 
2Х81 can be any from 1 to 9999, but you'll find it best if you work in multiples of 
10 or so because it gives you room to add extra lines between those you already have 
in the program. 


Extra lines sort themselves automatically into the correct order, and the computer 
always processes each line number in order from smallest to largest unless it is told 
during the course of a program to go to some other line. 


Following the first line number (10) we have the word PRINT, probably the most 
used command in the computer language BASIC, which is the language your ZX81 
uses. You follow the command PRINT with that which you want the 2Х81 to print, 
in quote marks. In this case, it's the words YOUR NAME. 


Try adding a comma just before the first set of quote marks, so the line reads 10 
PRINT ,'"YOUR МАМЕ““. Run the program again, and you'll find the ZX81 moves 
the words across the screen. The use of the comma in this way is ideal for setting out 
PRINT statements in columns (so it is ideal for printing out boring tables of figures). 


The computer stopped when it came to line 30 (INPUT A$). This A$ (a letter 
followed by a dollar sign) is called a string in BASIC and can be set equal to any 
combination of letters, characters and numbers, but we'll stick to letters for the time 
being. The computer stopped and waited for you to enter your string (your name). 


After you typed in your name, and pressed NEWLINE so the computer would accept 
it, the computer then ‘understood’ what A$ had been made equal to, and -- as you've 
discovered — actually used it to PRINT out your name the next time АБ appeared 
in the program. 


Next the computer asked you if you wanted to play (line 50) and accepted a second 
string (B$) in line 60 as your answer. Next, line 70 (CLS) cleared the screen, but 
without allowing the ZX81 to forget what you had entered for ВА. 


Now the ZX81, like all computers, can make decisions and act on them. In this 
case, in line 60, it looks at your answer (В$) to the question, and if the answer is 
NO (that is, if ВБ = “МО"") it directs control to line 270 which clears the screen. 


Control then passes to the next line (280) where the word CHICKEN ... is printed. 
Line 299 sends control back to 280 over and over again until the screen is full and 
the program stops. 


You'll see that the word CHICKEN forms quite an attractive pattern, and if you want 
something to investigate after reading this section, use a 'perpetual loop' and a few 
graphical symbols in a PRINT statement, to create patterns to fill the screen. 

Back in RUSSIAN ROULETTE land, if you do not answer NO when asked if you 
want to play, the computer moves along to line 90 where the variable J is assigned to 
the value zero. 


In Sinclair BASIC, any letter -- or combination of letters and/or numbers starting 


2 


with a letter — can be assigned to a value. So line 99 could say, for example, LET 
SUM = @ or LET РО4 = 0. You follow the instruction printed in line 100 (PRESS 
NEWLINE) and the screen clears yet again (line 120). Line 130 adds one to the value 
of J so J becomes equal to one. Next time around it will add one again, so J will equal 
2 and so on. 


Line 149 (LET G = INT(RND *6) + 1) uses, of course, the random number generator. 


Line 170 makes another decision. This kind of statement is known as an IF/THEN 
statement because it is of the form IF some condition exists THEN do something (IF 
the tyre is flat THEN pump it up). The condition can be almost anything from IF 
X = 96 to IF A$ = "FROG" to complicated conditions like IF A — B = 2*E — У/4 
THEN... 


Anyway, this IF/THEN statement checks to make sure the random number generated 
is less than six, and if it prints CLICK. If it is not, the ZX81 continues to scan the 
program, line by line, until it finds something it can do. If G is equal to six (line 199) 
it sends control to line 270 which uses a similar idea to the one we discussed earlier 
for CHICKEN to print out the fatal word BANG. 


Now assuming that G is less than six, the computer will print out CLICK in line 170, 
ignore 199 and then come to line 200. When it gets there, it will check to see what 
value has been assigned to J. If it equals 10, you've won the game, so the computer 
sends control to line 259 to tell you. If J does not equal 19, the computer ignores 
line 200 and then finds, at line 210, a command it can obey, and sends all the action 
back to 109. 


AS 


Once you've read through this somewhat bewildering explanation a few times, and 

you've killed yourself a number of times with NEWLINE, Га like you (before you 

cheat and read how I’ve done it) to add and/or change a few lines in the program to 
allow the player to have a new game if he or she survives the first game, without 

having to press RUN and start all over again. 


Once you've made your own version of this change -- and there is an enormous 


number of ways it can be done -- come back to the book and see the way I’ve done 
it. 


Probably the simplest way is to add the following: 
255 PRINT "ANOTHER GO?" 
And change line 260 to read GOTO 60. 


By doing this, you use the routine of lines 60, 70 and 8@ ‘twice’. You may well have 
done it differently from this. It does not matter what changes you made, so long as 
it achieves the desired end. 


Now, there is another way we could have produced the same effect -- by use of a 
SUBROUTINE. 


Whenever a computer comes across a GOSUB (GO to SUBroutine) command, it goes 
to the line specified, and follows on until it comes to the command RETURN. The 
computer then returns to the line AFTER the GOSUB command. Make the following 
changes to your RUSSIAN ROULETTE program and this should be clearer: 


308 INPUT ВХ 
31g CLS 


32g IF ВА = "NO" THEN GOTO 279 
33g RETURN 


This time, when you run the program, the computer will be sent to the subroutine 
when it gets to line 60 or 260 


Now here's a program called BEAT THE DEALER in which one subroutine (starting 
at 300) keeps track of your money and the other (starting at 409) rolls two dice. 


BEAT THE DEALER begins with the ZX81 throwing two dice. The total of the 
two dice is recorded. Next, the human player throws the dice. If the human's total is 
greater than the 2Х81% total, the human wins £5.50 and the computer loses the 
same amount. If, however, the human score is the same as, or less than the ZX81 
score, the computer gets £5.50 and the human loses the amount. It should be clear 


once you've played a few rounds, and after you have seen it in action, you should 
have a much better understanding of what a subroutine does. 


ig LET M = ЗИ 
20 LET N = mW 
3g LET Z = 5,5 
4g GOSUB 300 
50 созив 40 


/ 


LET C= А +В 
SCROLL 

PRINT "ME; X ";A;" * нов Pane 
INPUT Ag = 

GOSUB 400 

ЕТО = А +B 

SCROLL 

PRINT "YOU; * "saz" ж "ig » 0 
IF 0 > С THEN GOTO 169 

LET M2HM-7 


SCROLL 
PRINT "YOU £";M ,"ME  £";N 
INPUT АХ 

RETURN 

LET A = neta: * 1 

LET В = INT(RNO*6) 1 
RETURN 


SERIOUS APPLICATIONS 


Sinclair Research have added many useful functions to the ZX81 so it can be used 
in ways which were impossible on the ZX80. This section looks at some of the new 
possibilities. 


Here is a number of short programs - - written by Tony Baker - to demonstrate the 
ZX81's plotting ability. Run them in the SLOW mode. 


HEAVY OVAL PLOT 


1И FOR А = 1 TO 199 

24 LET В = PI*A/5g 

ag PRINT AT 9*CUS (B) + 14, 14*SIN(H) + 15;"inverse space" 

4d NEXT A 

1d FOR А = 1 TO 499 

ги LET B = PI*A/5gd 

30 LET С = (а - n)/4MM 

4g PLOT (20.5 ж COS(H) + 350) жс, (20% SIN(B) + ги)хс 

Sø NEXT A 

5 FOR D = 1 TO 2 

17 FOR X = 1 TO 499 

15 IF О = 1 THEN LET A = x 

17 IF D = 2 THEN LET A = 4gg - x 

20 LET C = (40d -A)/aMg 

25 LET В = PI*A/5g 

3g IF D = 1 THEN ie 5*COS(B))*C + 3g, 
2@* SIN(B))*C + 2g 

35 IF D = 2 THEN UNPLOT (20. Me * 3d, 
(28* SIN(8))*C + 

4g NEXT X 

45 NEXT D 

1И FUR A = 2 TO 124 

ги LET В = A*p| /%Z 

зи PLUI A/2, SIN(B)*2oM + 24 

и NEXT A 
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DOUBLE SINE WAVE 


5 IOR C = 1 TO 2 
14 FÜR A = 2 TO 129 

15 ЕЕ Ú = 1 THEN LET B = A*PI/6g 
ги If C = 2 THEN LET B = - A*PI/6ø 
25 PLUT A/2, SIN(B)*28 + 29 

ЗИ МЕХГ А 

35 NEXT С 

1d FOR A = 2 TU 12g 

ѓи LET В = A*PI/6ğ 

3g PLOT A/2, SIN(B)*2d + ги 

а PLOT А/2, COs(B)*2U + 20 

5g NEXT A 


CASCADING SINE CURVES 


5 DIM s(4) 

1 FOR Z = 1 TO 8 

15 FOR А = 1 TO 129 

20 LET 5(1) = SIN(A * PI/6J)*2g + 2g 
25 LET S(2) = COS(A * PI/6g)*2g + 28 
3g LET 2 = 4d - S(1) 

35 LET S(4) = 4g - 5(2) 


4g LET 3 2 = INT(Z/4)*4 + 1 


45 LET K = Z + 3 - INT((Z + 2)/4)*4 
5d UNPLOT A/2, 5(2) 

би PLOT A/2, S(K) 

65 NEXT А 

78 NEXT 2 


DEMONSTRATION PLOTS 


You can join several of these programs together, if you have enough memory, to 
create a highly effective demonstration program. 


14 FOR А = 1 TO 1gg 

2g LET B = PI*A/5gd 

3g PRINT AT 9*COS(B) + 10, 14*SIN(B) + 15;"inverse 
space" 

4d NEXT A 

5g PAUSE 200 

6g CLS 

78 FOR A = 1 ТО 400 

8g LET B = PI*A/5g 

85 LET C = (499 - А)/400 

9g PLOT (20.5*C05(8) + 37)*C, (2U*SIN(B) + 28)*С 

100 МЕХТ А 

114 PAUSE 200 

128 CLS 


138 FOR А = 2 TO 120 

14g LET В = A*PI/3U 

154 PLOT А/2,51М(8)%20 + 20 
160 NEXT A 


178 PAUSE 200 

180 CLS 

190 FoR C = 1 TO 2 

200 FOR A = 2 TO 120 

21d ТЕ С = 1 THEN LET B = A*PI/6d 
220 IF С = 2 THEN LET В = -АЖРТИбИ 
23g PLOT A/2, SIN(B)*29 + 2 


248 NEXT А 
250 NEXT C 


If you wish this to be a continuous demonstration, add: 


268 PAUSE 200 
278 CLS 
280 RUN 


MULTIPLICATION QUIZ 


The ZX81 can be used to create its own numerical quizzes, and check the user's 
answers: 


1d LLT 2 = @ 

2g GOSUB 460 

эй PRINT TAB 8;"MULTIPLICATION QUIZ" 

48 GUSUB 46% 

5g PRINT "DEGREE OF DIFFICULTY (1 TO 14)?" 
6d INPUT A 

78 IF A€ 1 ORA > 1⁄2 THEN GOTO 69 

146 GOSUB 460 

11g PHINT "HOu MANY QUESTIONS?" 

124 INPUT В 

138 IF B € 1 THEN СОТО 12¢ 

14g CLS 

154 FOR G = 1 TO B 

168 LET С = A*INT(RNO*1gJ) + 1 

170 LET D = AWINT(RND*4g) + 1 

1вй LET t = C*D 

19% GOSUB 460 

202 PRINT "QUESTION NUMBER * ";G 

210 GUSUB 46% 

220 PRINT "WHAT 15 ж "303" * TIMES * "50,"?"; 
23g INPUT Е 

24d PRINT "four spaces"; 

25d GOsUB 460 

264 IF f = L THEN GUTO 428 

278 PRENT “INCORRECT. THE ANSWER IS * "3E 
28g созин 46g 


294 PRINT ТАВ 8;"YOUR SCORE 15 * "37 


зии PRINT ТАВ 9; RIGHT OUT OF * “uG 

31g PRINT "pnt SS NEWLINE * "; 

32g IF NOT С = B THEN PRINT "TO CONTINUE" 
33g INPUT АХ 

34g CLS 

55g NEXT G 

36g FOR K = 1 TO 3 

37g GOSUB 46И 

зв NEXT К 

394 PRINT "LND OF QUIZ. YOUR SCORE IS" 
ЈА PRINT ТАВ 8; INT(H*1@@/G) ;" * PER CENT" 
419 STOP 

424 LET ¿ = Z + 1 

438 GOSUB 46g 

444 PRINT "CORRECT. THE ANSWER IS ж "5E 
454 GOTU 28g 

46% FOR 5 а ТО 3 

47 PRINT 

48g NEXT 5 

494 RETURN 


SQUARES 
(DEMONSTRATING SCROLL) 


The next program shows the SCROLL function in use: 


1g ТК = g 

20 60508 220 

ag PRINT TAB 8;" SQUARE S" 

4 созин 22g 

oy PRINT TAB 65;"LOUEST NUMBER?" 
od INPUT A 

7и GUSUB 22И 

ви PRINT TAB 6; "НІСНЕЅТ NUMBER?" 
9g INPUT B 

176 GOSUB 22g 

110 PRINT "PRESS NEULINE FOR TABLE" 
128 INPUT АХ 

13g CLS 

144 FUR X = A TO B 

154 LET K = K + 1 

ToU IF K? 28 THEN SCROLL 

174 PRINT TAB 8;X;" * SQUARED IS * ";x*x 
18g NEXT X 

194 PRINT 

“Џи PRINT TAB В;"ЕМО OF TABLE" 
21g STOP 

22M. FOR C = 1 TO 3 

23M PRINT 

240 NLXT C 

25M RETURN 
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The variable K acts as a counter to start SCROLLing when the screen is nearly full. 
You can use this idea if a program output is sequential and is likely to cause the 
program to crash by demanding more than one screen full of space. 


TABLE AND GRAPH 


This next little routine creates a table of values in accord with the formula you 
place in line 99, then plots the values. You can easily dispense with the plotting part 
of it if you like, by deleting lines 130 to 160. You will have to experiment with the 
scale used to get the most effective plot of your formula. 


14 PRINT "LUULST VALUE (X) TO PLOT", "AGAINST?" 
20 INPUT A 

3g PRINT A,"HIGHEST?" 

аф INPUT B 

5d CL S 

6g DIM C(B) 

78 FOR D = A ТО B 

вй SCROLL 

9g LET C(D) = .....your formula.... 

ТИИ PRINT D, C(0) 


114. NEXT D 
128 PAUSE 34g 
138 CLS 


14d FOR D = А TO B 
ТИ PLOT D, C(U) 
168 NEXT D 


Try this with A equal to one, and B equal to 69, using the following formulae: 


LET С(0) 20%С05 D 
D*D/ 108 


LET C(U) = 5*sQH D 


ARITHMETIC MEAN 


This program accepts a series of numbers and then works out the average (mean) of 
them. It uses the formula: 


LET с(О) 


Ш 


ли LETU- d 
24 PRINT "HOW MANY NUMBERS WILL YOU ENTER?" 
3d INPUT A 
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ЧИ FORB = 1 TOA 

S£ — SCROLL 

ӨЙ PRINT "INPUT NUMBER * ";B 
74 INPUT D B 

ви — SCROLL 

98 — PRINT D, A - 8;" ж TO GU" 
ТИИ LLT CSC +D 

119 NEXT B 

128 CLS 

137 PRINT "TOTAL WAS * и; 
14M PRINT 

158 PRINT "MEAN IS * ";(INT(C/A*14g))/1Ud 


Line 159 ensures the mean is stripped to a maximum of two decimal places, Change 
the 109 to 19 for two decimal places, to 1000 for three and so on. 


DATA SORT 


This program sorts up to 100 numbers into descendi ng order. Just enter the numbers 
(positive, negative or mixed) one by one when prompted. When you want the ZX81 
to sort the numbers from highest to lowest, input a 0. 


5 DIM Q(11¢) 

1d LET Z = g 

2g LET Y = 1d 

3g SCROLL 

35 PRINT"'ENTER NUMBER * "37 + 1;" жн; 
ай INPUT Q(Y) 

5g IF Q(Y) = И THEN GOTO 1gg 

6d LET Z = Z + 1 

78 PRINT Q(Y) 

8g LET Y = Y +1 


117 FOR X = 1g TO 7+8 

127 FORN = X + 1 10 2 +9 

134 IF Q(X) > Q(N) THEN GOTO 17g 
148 LET E = Q(x) 

158 LET Q(x) = Q(N) 

168 LET Q(N) = E 

178 NEXT N 

188 NEXT X 

190 FORN = 1 ТО Z 
264 SCROLL 

218 PRINT М, Q(N + 9) 
228 NEXT N 
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QUADRATIC EQUATION 


Both roots are printed if there are two real roots, one root if they are equal, and 
both the 'real' and imaginary parts of imaginary roots. It is quite clear from the 
output which roots are printed. 


5 PRINT "LNTER A" 

1и INPUT X 

15 PRINT X, “ENTER B" 
20 INPUT Y 

25 PRINT Y, "ENTER C" 
3g INPUT Z 


35 CLS 
4d LET Y = - Y/2/X 
45 LET Q = Y*Y - Z/X 


5g IF Q = И THEN GOTO 200 

55 IF Q> Ø THEN GOTO 300 

би LET t = SQR (-Q) 

65 PRINT "IMAGINARY ROOTS;" 

76 PRINT ""REAL" ROOT * И; у 

75 PRINT "IMAGINARY ROOT * "se 
ag STOP m 


288 — PRINT "EQUAL ROOTS; * ";y 
210 УТОР Е 


3gg PRINT "REAL ROOTS:" 


31g PRINT ,Y + SQR Q 
32g PRINT ,Y - SQR Q 


STANDARD DEVIATION, 
MEAN, VARIANCE 


This standard deviation program uses the following formulae: 


хі 


Меап - >, x = 
n 


Variance = n 
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Standard Deviation = J v 


To run this program, enter the number then frequency as directed. If you make a 
mistake, enter the letter E, then the item number at which the mistake was made. 
You will then be able to re-enter it. 


When all the data has been entered, input the letter Q to let the processing begin. 
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PRINT "ITEM * ж ж * 

"four graphic 7 Li * 

nine graphic 7" 

LET E = RND 

LET Q = RND 

DIM за 

DIM Е(5И 

LET А 
в 
А 
В 


BER * * * * FREQUENCY", 


NUM жж 
F * six graphic 7 + * * * 


LET 
LLT 
LET 
ТВ? 1 
PRINT A; 
INPUT x 
IF X = E THEN GOTO 21g 
IF X = Q THEN GOTO 269 
LET X(A) = X 

PRINT TAB 14d;X; 

INPUT F(A) 

PRINT TAB 21;Е(А) 

GOTO 90 

LET B = В +1 

IF 8 > 19 THEN SCROLL 
PRINT ТАВ Й; "ITEM?" 
INPUT A 

СОТО 1gg 


HEN SCROLL 


LET 
LET 
LET 
FOR 
LET 
LET 
LET 
NEXT X 

CLS 

PRINT AT 5,8;"MEAN=",,,A/N,,,"VARIANCE=",,, 
B/N - A*A/(N*N),,," STANDARD DEVIATION=",, 
SQR(B/N - A*A/(N*N)) 


TO 58 
+ F(Z 

+ ІНЕН 

+ F(2)*x(2)*x(2) 


ш» zm" m >z 
с>г-оаы 


H Hl l H H H H 


If you want to dress the program up a bit, to show it is actually doing something, 
add the following lines: 
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295 PRINT AT 21, 19; THINKING" 
39S PRINT AT 21,10; "THINKING" 
315 PRINT АТ 21,19; "THINKING" 
325 PRINT AT 21,18; "THINKING" 


EQUATION SOLVER 


The following program can be used to solve any equation in which X equals zero. 
As well, it prints out the answers it is reaching along the way to solving the equation, 
and the error. It is fascinating to watch it at work. This program will produce an 
answer correct to 9 decimal places. 


If you wished, for example, to find X such that X*X — SIN X = © you would enter 
X*X — SIN X when prompted (in 30). If you knew the answer you wanted was 
around 0.8 or 0.9 you next input these numbers. If you have no idea of the answer, 
just pick any two different numbers — then leave it up to the ZX81. 


To find the cube root of а number, enter X**3 — the number in answer to the 


prompt (e.g. X**3 — 2.79 if you wanted to find the cube root of 2.79). To get 
square roots, just enter X **2 — the number. 


1g PRINT "COMPLETE THIS EQUATION AS A (four spaces) 
FUNCTION OF X;" 

20 PRINT "g = "5 

3g INPUT AZ 

4g PRINT АЯ 

45 PRINT 

5g PRINT "PLEASE ENTER TUO DIFFERENT (six spaces) 


NUMBERS CLOSE TO UHAT YOU THINK THE 
ANSUER MIGHT 8E" 


6g INPUT A 

65 PRINT = — 

ү PRINT A, д т Бао ke 3 

8 LET X =A д Ы 

9g LET FS VAL M | в E27 Eye 
10g IF F THEN GOTO 13 Jg 9 E316 [3 n 412 
114 PRINT AT 13,3;"THE ANSWER IS",A sar pid 
128 STOP Үк. x 
13g INPUT B ЕЗ ЕЗ s өрі 20 
149 PRINT B E33 22 FER on pw I 
15g PRINT АТ 1g,19;"RESULTs" 21 9 22 [2 23 рр 
168 PRINT AT 11,11; "ERRORS" Ed 25 E3 26 f 27 71281 
179 LET X = B 2 зр pas 
18@ СЕТ G = VAL АВ a fied ай НА bes 
190 PRINT АТ 10,17;А 

гри PRINT AT 11,17; ABS(G - F) 

218 IF ABS(F - С) 2 1E - 9 AND G <> g THEN GOTO 240 
228 LET А = B 

23g GOTO 119 

248 LET X = (G#A - F*8)/(G - F) 
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245 
258 
26g 
278 


LET F = G 
LET A= В 
LET B = X 
GOTO 18g 


INTEREST 


The ZX81 can also be used for practical tasks such as the following, which works out 
how much interest must be paid on a loan. It accepts the length of the loan in days, 
but if you want to find out how much the interest is on a loan taken over years, input 
the year figure (i.e. 25) multiplied by 365 (that is, when the ZX81 asks the "LENGTH 
OF LOAN IN DAYS", enter, for 25 years, 25*365). Alternatively, you might like 
to modify the program to accept the input in years, rather than days. 


PRINT "PERCENTAGE INTEREST RATE?" 
INPUT E 

PRINT 

PRINT E, "PRINCIPAL? (£)" 

INPUT P 

PRINT 

PRINT P, "LENGTH OF LOAN ",,"IN DAYS?" 
INPUT D 

CLS 

LET E = INT(P*0/365gd * E + .9) 
PRINT "INTEREST IS £";E 

PRINT 

PRINT "TOTAL (PRINCIPAL PLUS" 
PRINT "INTEREST) IS £";p + Е 


WHAT CAN YOU DO WITH IT? 


Many 2Х81 users -- who have had experience working on the 2Х80 -- feel cramped 
at the small memory they have to work with on a 1K machine. 


The 1K on a ZX81 is not as efficient as the same memory оп а ZX80 for a number of 
reasons. These include: 


* System variables consume 125 bytes on the ZX81, and only 40 on the ZX80 


* Line numbers take three bytes on the old ROM (two for the line number, one for 
the line end of the line) and use up five bytes on the new ROM/ZX81 


* Numbers are the big space wasters on the ZX81. A number uses up the number of 
digits in the number, plus one for the decimal point if there is one, plus six. As 
you'll see, it is ‘cheaper’, in memory terms, to set LET Р = 1 and then use P 
instead of 1 if you have more than three ones in the program. Let Q = P +P is 
cheaper than LET Q = 2. 


You can see how many bytes you've used in a particular program by entering, as a 
direct command: 


PRINT PEEK 16396 + 256* PEEK 16397 - 16509 


It is very useful to enter this as line 9999 so that, at any time, you can find the 
number of bytes by entering GOTO 9999. 


Enter, and run, the following program: 


19 FOR Я=1 TO RND£1942 
20 FOR B=1 TO RND£:10«42 
30 FOR C-1 TO RND£10842 
аа PRINT "а"; 

ва NEXT C a. 

ee PEINT ЭВ; (inverse space) 


88 PRINT "HB": A 
9e NEXT ñ (graphic H) 
9999 PRINT PEEK 1863964256sPEEK 4 
8397-16889 
You should find this occupies 206 bytes. 


Now, add: 


5 LET D = 10 


and change the 10 in lines 10, 20 and 30 into D, and run the program again. This 
time you'll see the program only occupies 201 bytes, even though you've added a 
whole extra line. Now this saving of five bytes is not, perhaps, very dramatic, but it 
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shows that memory can be saved in this way. And this can be most important if 
you're running close to the limit of your computer's memory. 


Next, add: 
3 LET E = PI/PI 
4 LET F-E*E 


This sets E equal to one, and F equal to two, and despite the roundabout way of 
doing it, proves most efficient. 


Go through your program again, changing all the ones into E, and all the twos into F. 
Run it again, and you should find it only occupies 187 bytes, quite a drop from the 
206 we started with, although an additional three lines have been added. 


Despite the fact that only 1K can seem restrictive, very worthwhile programs can be 
written in considerably less than this amount of memory. 


For example, the following program -- which works out roots, such as cube roots 
and square roots of a number you enter -- occupies just 154 bytes, including line 


38 PRINT s COEM 
30 PRINT ag " ROOT?" 


Ы 6@ PRINT "THE ":R 
га PRINT “IS ",N 

9999 PRINT PEEK i&3 

56397-15589 


" ROOT OF ", 


E 
жжіз 3Р2 
SE6+2562PEEK 1 


To use this, enter the number you want (such as 1000) and then, when asked to do so, 
enter the root you require (such as 3, for the cube root). 


Because each line in a ZX81 program consumes memory, it is useful to be able to 
drop a line from time to time. Many programs end with something like: 


IF X > 20 THEN PRINT "YOU WIN" 
IF X › 20 THEN STOP 


A simple way of doing this, without adding the second line, is to add a letter which 
has not been used for a variable, immediately after the PRINT statement. This will 
cause the program to stop (with an error message). 


Here's a sample program which should make it clear: 


10 INPUT AZ 

20 PRINT AS 

30 IF АЯ = "S" THEN PRINT "THE ЕМО" 
40 IF ag = "S" THEN STOP 

50 GOTO 10 
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This version takes _ bytes (work it out for yourself, with the aid of line 


| Now enter this version, and see how long it is: 


10 INPUT Ag 

20 PRINT AZ 

30 IF АЗ. м "S" THEN PRINT "THE END" su 
50 — 


GOTO 
This version takes — ‘bytes. 
_ Аз an exercise now, enter the f ыы ақы ана алы. 
(rera fer а Эре eno tan NEUE qu then a number, then NEWLINE, then 


PT IST nl hon а Hé мн up ud S 


за 
ве 


ae | 


o 
Ó 
N 


HUNE i ое Once you've worked-on rewriting 
- to make it shorter, return to this and see one way I've done it: 
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$ 
га IF H$-"X" THEN STOP 


59 FOR С-2/2 T n 
в 
70 IF RND». б. THEN GOTO Z 


130 NEXT C 

14@ GOTO Z.P1 
9999 PRINT PEEK l163964256zPEEK 1 
56397-16589 


This version occupies 209 bytes (with the usual 9999 on the end of both programs). 
See if you can shorten it even more. 


In the book PROBLEMS FOR COMPUTER SOLUTION by Donald D Spencer, he 
poses a problem as follows: 


“If five pairs of birds each raise 3 eggs to adulthood, then die, leaving the 
remaining 15 birds to mate and also raise 3 eggs per pair to adulthood, then die, 
etc., how many birds will there be at the end of 5 years?” 


Write a program to solve this, and then return to see one way that | did it. 


In the following example, I’ve spelt out the names of the variables in full. That is, 
I’ve used a variable called BIRDS to set equal to the number of birds, and a variable 
called YEAR to represent the year. Work out how many bytes in your program, 
then enter mine as listed, compute the number of bytes, then shorten it by changing 
the variable names into single letters. As you'll see, you'll save quite a bit of 
memory in this way. 


5 LET УЕЯР =@ 

10 LET BIRDS-18 

BO LET BIRDS-INT (BIRDS^/Px3 

за LET YEAR=YEAR+i1 

ча SCROLL 

S@ PRINT “YERR ";YERR;" BIRD 
$ ";BIRDS 

69 FOR P-1 TO 59 

те NEXT P 

ге GOTO га 


Our next sample program, which you'll find far harder to shorten, is called 
JUMPING JACKRABBIT. The rabbit (an inverse space) starts off on the central 
spot of a five by five grid drawn on the outside of a cylinder, so the right hand and 
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left hand edges meet, but the top and bottom do not. A coyote, deadly enemy of 
the jackrabbit, waits at the top, and one at the bottom, waiting for the rabbit, which 
is not very bright, to leap off. 1f the jackrabbit does this, the program stops with an 
error message to show the jackrabbit has been eaten. The jackrabbit jumps at random, 
one square at a time. Y ou'll find this gives quite a fascinating display, which may well 
suggest other programs to you. 


5 DIM mta) 

7 LET Dzo 

за FOR A=2 TO 25 
20 LET тп») = 

30 NEXT A 

Жə LET Z213 

БӨ LET A(Z) 2128 

ба PRINT AT 5.8: 

70 FOR Asi TO 25 
зе PRINT CHRS AA); 
180 IF S#INT (A’S) =A THEN PRINT 


148 LET C=INT IRNDEs5)-s1 

150 IF C=2 OR С=3 THEN GOTO 146 
150 IF RND>.S THEN LET C=- 

170 LET AZ? ср? 

180 LET Z=Z+C 

190 GOTO во 


You'll find that very rarely, if ever, will the jackrabbit survive more than 15 jumps. 


Finally, here is a simple FRUIT MACHINE program, written using many of the 
space-saving ideas lve been discussing. Enter and run it, and once you've seen it in 
action, try and write it so it is more memory-efficient. 


сеп 
ва PRINT “YOU HAVE £":H 
906 INPUT AS 


120 FOR D=Z TO K 
130 GOTO 1604INUT (RND#K) £18 
160 PRINT "HB “>; 


170 PRINT "s "; 
172 LET B=B+Z 
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4 iga 
389 BRINT "3 "5 
ва LET Езезг 


199 IF 2.2 AND BaZ AND C-Z THEN 
LET M=M+T#T 
260 IF А-К OR Бек OR бек THEN L 
ЕТ H-HaKxTr 

218 IF M«Z THEN PRINT "YOU ARE 
BROKE';U 

220 GoTo se 


(423 bytes, including line 9999). 


PLOTTING AND PRINTING 


The ZX81 (and new ROM ZX80) has very useful facilities for plotting and printing. 
The next four programs show these facilities in action. 


PATTERN-MASTER 


This program will generate a constantly evolving design, using a character you select. 
It is relatively satisfactory using PAUSE but really comes into its own when you 
delete the PAUSE lines and run it in the SLOW mode. 


18 PRINT АТ 5, В; "PATTERN-MASTER" 

28 PRINT AT 18, U;"UHICH ONE LETTER, NUMBER OR ","GRAPHICAL 
CHARACTER DO YOU","UANT МЕ TO USE IN 
А PATTERN?" 


3g INPUT AZ 

48 CLS 

5g FOR Z = 1 TO 5989 

eg LET A = о +1 
78 LET В = INT(RNO*16) + 1 


ag PRINT AT А,В;АЯ 

9g PAUSE ЗИ 

18 PRINT AT 22 - А,В;АЯ 

114 PAUSE ЗИ 

128 PRINT AT A, 32 - ВЈАЌ 

138 PAUSE 38 > 
14d PRINT AT 22 - А, 32 - B;AÁ 

158 PAUSE 700 


168 LET A = INT(RND*11) + 1 « 
474 LET B = INT(RNO*16) + 1 А 
188 PRINT AT A,8,;" * " 
198 PAUSE 5 < 
288 PRINT AT 22 - А,В;" * " x 
21 PAUSE 5 

74 


22 


298 
388 


PRINT AT A, 32 - B;" * " 

PAUSE 5 

PRINT АТ 22 - A, 32 - B; "а" 
PAUSE 5 

IF RND 2 .4 THEN GOTO 16g 
NEXT Z 

PAUSE 4@@ 

CLS 

RUN 


CAPRICCIO 


“Capriccio: Music, a lively piece composed freely ...” (Collins English Dictionary). 
Capriccio is a similar program to PATTERN-MASTER, except it creates designs ona 
finer grid (62 X 40) and uses the PLOT and UNPLOT functions instead of PRINT AT. 


218 
228 


SLOU 
RAND 

LET A INT(62*RND) 

LET В = INT(4U*RND) 

IF RND > .25 THEN GUTO 15g 
PLOT А,В 

GUSUB 209 

PLOT A, АЙ - B 

50508 200 

PLOT 62 -А, В 

GOSUB 200 

PLOT 62 - A, 44 - B 

GOSUB 200 

GOTO 3d 

UNPLOT A,8 

UNPLOT А, 49 - B 

UNPLOT 62 - А, В 

UNPLOT 62 - A, 48 - B 


GOTO 3g 
di Sofia УЗ (Make this loop longer if you want the program 
RETURN to run more slowly.) 


BUTTERFLY 


BUTTERFLY is a simpler version of the above program, and will fit within 1K. 


СЕТ С = 62 
LET D = 4g 
LET А = СҰНМО 
LET B = D*RNO 
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5g PLOT A, В 


6g PLOT A, D - 8 

78 PLOT C - A, В 

8g PLOT C- A, D - B 
9g RUN 


As you can see, there is no facility to UNPLOT any of the little squares so eventually 
the TV screen will become a solid, black rectangle. 


STAR-MAP 


STAR-MAP creates a galaxy (of sorts) on your TV screen, and is an effective display 
program if left to run for a long time. The program sets up a black rectangle, and 
proceeds to PRINT AT and unPRINT AT stars in this black nothingness. 


10 SLOU 

zg FOR A = 1 TO 19 

30 FOR В = 1 TO 32 

4g PRINT "inverse space"; 

5g NEXT B 

6g NEXT A 

78 PRINT АТ RNO* 9, RNO*31;"inverse asterisk" 
8d PRINT AT RNO* 9, RNO*31;"inverse space" 


эй P. these tuo lines are the same as line ВИ 


11g PRINT AT 1,1;"inverse space" 
120 PRINT AT 1,1;"non-inverse asterisk" 
13d GOTO 7d 


V 
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We've spent a fair bit of time on ‘serious’ applications. Ме"! have a look now at some 
of the games possibilities of your ZX81. 


GEIGER 


GEIGER works well in both SLOW and FAST modes. This listing is for FAST, but it 
requires only minor modification to make the best use of SLOW. You are looking 
for a cache of plutonium hidden on a solid black plane. You have to learn how to 
interpret the output of your geiger counter to find the plutonium, The reading given 
by your geiger counter is determined by line 290, so you can easily alter this if you 
want it to give a different reading. If you want to make it really difficult, you can 
add a slight degree of waywardness to the geiger counter's output by introducing a 
random factor. 


18 LET 5 = И 

28 LET A = 2 + Е 
3d LET B = 1 4 INT(RNO*9 
4d PRINT 

5g PRINT 

9g FOR X = 1 TO 1d 

164 FOR Y = 1 TO 19 

11g PRINT AT Y,X; " _ "3 (one inverse space) 
128 NEXT Y 

134 NEXT X 

14d LET C = 1 

158 LET D = 1 

178 PRINT АТ C,0;"X" 

175 LET S= 5 +1 


180 PAUSE 40 (delete this line if running in SLOW) 
190 PRINT АТ C,0;"«" 


204 IF INKEYS = "7" THEN LET C = C - 1 
211 IF INKEYS = "S" THEN LET D = D - 1 
220 IF INKEYÉ = "6" THEN LET C = C + 1 
23g IF INKEYZ = "8" THEN LET D = D + 1 


235 IF INKEYÉ "S" THEN STOP 


24d IF C < 1 THEN LET C = 1 
25g IF C» 1d THEN LET С = ЛИ 
268 IF D < 1 THEN LET D = 1 
27M IF O УТИ THEN LET D = 10 


28g IF A = C AND B = D THEN СОТО 9gg 

298 PRINT AT 11, И; "СЕІСЕВ COUNTER READS ж ";ABS(B - D) 
*7.29 € C +A 

3d) СОТО 170 


904 PRINT AT 13,3;" YOU FOUND THE PLUTONIUM","IN 
" * + ж IN * ";5;" * TRIES" 
910 PRINT АТ 11,0;"(32 blank spaces)" 


928 PRINT АТ С,О;"р! (an inverse P) 
938 PAUSE 500 

948 CLS 

950 RUN 
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SPACE-BOY 


1800 PRINT 
110 PRINT 


TAB (8);" 


"IN THIS GAME. YOU HA 
“MANIPULATE THE ЕЈ дат 
“SPACE-BOY TO ERRSE г 
“OBJECTS FLOATING AT 

TRE (8); “OF THE CAPSL 


“KEY X MOVES YOU TO T 
"KEY М TO THE RIGHT" 

"YOU KEEP THE SPRBCE.-E 
“IN FLIGHT Ву BOLNE 
TAB (4): “THE MOVING P 


“PRESS NEWLINE WHEN Y 


Uu R ee 
26 PRINT TAB (4); “RERDY TO PLA 
270 INPUT AS 
264 CLS 
5019 FOR Я=1 TO 100 
сара LET B=PI*R a se 
S@3@ PRINT АТ ӘзСОБ (8) 4142,34257F 
N (B)417;" BM" 
5050 NEXT Н 
заба CLEAR 
5062 PRINT AT 5,11; “me 
Fun PRINT AT 6,11; "2g 
Бега PRINT AT 7.10; Rea 
efs PRINT AT 8,11; sewer 
5451 LET c=16 
5452 LET D-10 
S453 LET 5СОНЕ-Ө 
5455 LET Н-19 
5456 LET B=21 
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5457 LET Есі 

5459 К=5 

5510 LET B-B-RNDzS5-eRND 25 

5528 IF INKEYS="X" THEN LET D=D- 
5525 IF D<8 THEN LET С-а 

5530 IF INKEY$="M" THEN LET D=D+ 
5535 IF D»23 THEN LET б>=23 

S540 IF B»21 THEN LET B=21 

5558 IF BIS THEN L = 


5760 PRINT AT C+ ; 
5770 IF 218 AND ABS (D-Bl»2 THE 


М LET K= 

S77S IF C ric 28 THEN LET E=-1 
5785 IF С=5 THEN LET Е=4 

5800 LET SCORECSCORE +1 

5998 GOTO 551 

S9: CORE. 5те 10,8; "Brou SCORED 
6915 PAUSE 400 

сега CLs 

6030 RUN 240 


ARRAYS 


Arrays, and the use of the DIM (dimension) statement can be puzzling. This 
statement is used when you need to set up a list with a 'name' (the name is a letter 
like A, B or whatever). For example, you might want the numbers 1 to 15 in a list 
named A, in the form LET A(1) = 1, LET A(2) and so on to LET A(15) = 15. 

To do this, you tell the ZX81 you need an array to hold these elements (1, 2 and so 
on to 15) by entering: 


jg DIM A(15) 


The number inside the brackets is known as the subscript and an element of the form 
F(2) or K(8) is called a subscripted variable. 


Here's a program, of sorts, to show the DIM statement: 


1и DIM A(1g) 
28 FOR B = 1 TO 1g 


27 


ag LET А(В) = 2*8 
4g PRINT "A(";B;") = ";a(g) 
5g NEXT B 


When you RUN this, you'll get: 


ии 
№ 


4 ...andsoon,to... 


>>» 
——— 
= N) — 
Qw 


Change line 10 to DIM A(5) and try the program again. This time, you'll just get to 
A(5) = 10. The program stopped at this point (giving the error code 3/30, meaning 
that the subscripted variable required, i.e. B = 6 to 8 = 10 was out of range). Change 
line 10 now to DIM А(20) and run the program once again. You will find you get 
exactly the same result as having DIM A(10). You change nothing (except for using 
up more memory) by having a larger array than you actually need. 


Now add the following lines: 


10 01М A( 1g) 


ои INPUT ВХ 

74 F0R 221 TO 15 

8g LET А(7) = 3*Z 

9g PRINT "А(";/;") = ";А(2) 


104 МЕХТ 2 


When you RUN this, you'll find the same result through to А(10) - 20 followed Бу 


the symbol asking you to input a string (or, as in this case, press NEWLINE). The 
ZX81 will then display: 


28 


The error code 3/80 will be displayed because the demand made on the array in line 
80 was greater than the array defined by line 19. That is, line 70 made the next 2 
equal 11, and line 80 therefore wanted a subscripted variable called A(11) which, of 
course, it could not find because the array only had room for 10 elements. 


DERBY DAY 


The next program, DERBY DAY, uses an array (defined in the first line) to store the 
positions of four tiny horses (inverse letters A, B, C and D) which canter up and then 
down a race track on your screen (or up and down a very rough facsimile of a race 
track). After displaying a points score at the end, the race track rolls away and 
another race is soon underway. 


И DIM А(4) 


28 SLOU 

3g FÜR А = 1 TO 22 

48 FOR С = 1 TO 9 

5g PRINT "graphic А"; 

би NEXT C 

7¢ FOR В = 1 TO 15 

8g PRINT "inverse space"; 
9g NEXT B 


104 FOR C = 1108 
11d PRINT "graphic A'; 
128 МЕХТ С 

130 NEXT A 


148 LET A = 12 
154 LET B = 15 
168 LET C = 48 
174 LET D = 21 


180 GOTO 23g 


190 PRINT AT ABS(22 - A(1)), А;"1пмегзе space" 
28 PRINT AT АВ5(22 - A(2)), B;"inverse space" 
218 PRINT AT 2 - EAE: "inverse space" 
228 PRINT АТ ABS(22 - А(4)), D;"inverse space" 
238 КОВ G = 1 TO 4 

248 LET A(G) = 1 + A(G) + INT(RND*2) 


25g NEXT G 


lololol» 


268 PRINT AT ABS(22 - A(1)),A 
27M | PRINT AT ABS(22 - ae 
288 PRINT АТ fe A(3)),C 
294 PRINT AT ABS(22 - A(4)),0 


309 FOR № = 1 TO 19 
310 NEXT N 


29 


320 IF А(1) < 42 AND А(2) < 42 AND А(3) < 42 
AND A(4) € 42 THEN GOTO 19g 
334 PRINT AT 3,2;"POINTS: A-";A(1);" * B-";A(2);" * CH" 
A(3);" ж D-";A(4) 
g 


34g FOR N = 1 TO T 
35g NEXT N 

360 CLS 

374 RUN 


ALIEN IMPLODERS 


5 LET џ-а 
19 GOSUB 1020 


ғә 
16@ PRINT AT зе; RS; RT X,Y-1." 


2898 LET fd5-Hziz TO 3 +Asiii 
УФ THEN LET YvzY- 


QUE IF IHKEY$-"S3" THEN LET Y=V+ 
pa IF I.'KEY&-"1" THEN GOGSUB sa 


509 NEXT К 
5.8 PRINT HT 12.9; "REE 


52@ IF @>U THEN LET U=0 
S3@ IF U<>@ THEN PRINT ВТ 1.8; "` 
dre SCORE: “iU 
FOR "n^ TO бе 
552 NEXT 
555 PRINT AT 12,9; “#25TAND #BY жж 


560 LET Z-RNDxExRND 
„570 PRINT AT i2a,g." 


760 GOTO 19 
1:00 LET A=" x x x X x M 
м M м в" 


i820 LET 3-20 
1030 LET х-аа 
3949 LET Y=16 
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ласа PRINT AF xX. 


`` 


заба PRINT RT В.Т“ 


іа RETURN 

S200 IF (СУ) <>" " THEN LET S=5+ 
£ 

зада IF H$tri)-"E" THEN LET 5=5+2 
S@@3 ТЕ H$ir)-"M" THEN LET 5=5+% 
S905 LET ЯФ Си: =“ " 

59008 FOR H-18 TO 1 STEP -3 

зата PRINT HT Я.У; T. 
5920 PRINT AT Я.\; ` 
5830 NEXT A 

5940 LET @=S#6453+INT (FhMDzx32331 
5050 IF Q»:5,000 THEN PRINT AT Ө. ғ 
"SCORE: “jA 

5070 IF ү>г AND Y430 THEN LET Y= 
Y+INT (RNG#33 -INT (RND#3} 

S500 RETURN 


x` 


SCORE: 6455 
HIGHEST SCORE: 38720 


M M Ыы x x X X M H 


The 2Х81 can also set up n-dimensional arrays (where n is a positive integer). A 
two-dimensional array is defined by a statement like DIM A(10, 10) which will give 
you 109, that is 10 X 10 subscripted variables, from 1, 1 to 10, 10. 


HIDING IN 3-D 


In this program, you have to find the 2Х81, which is hiding in a three-dimensional 
array. To locate it, imagine the ZX81 is hiding in a cube measuring 10 X 10 X 10. You 
enter three co-ordinates (one ata time, with NEWLINE after each), then the computer 
gives you feedback to allow you to modify your guess. You'll soon learn how to 
modify your guess. You'll soon learn how to interpret the feedback. 


1d DIM А(10,10,10) 

28 LET B = INT(RND*1g) + 1 

3g LET C = INT(RNO*17) + 1 

40 LET А = ТМТ(ВМОЧАИ) + 1 

5g LET А(В,С,А) = 1 

6g FOR 2 = 1 TO 19 

76 PRINT "WHERE AM I HIDING?" 
8g PRINT "GUESS NUMBER * "37 
9g INPUT D E 

104 INPUT E 
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11d INPUT F 


129 PRINT Оу" * * "365" жж "SF 
139 IF A(0,E,F) = 1 THEN GOTO 340 
14d PRINT "WRONG" 

150 PRINT "HERE IS А CLUE" 

160 FOR G = 1 TO ABS(8 - D) 

178 PRINT "inverse space"; 

180 NEXT G 

190 PRINT 

200 FOR б = 1 TO ABS(C - E) 

218 PRINT "graphic A"; 

228 NEXT G 

230 PRINT 

248 РОВ С = 1 TO ABS(A - Е) 

258 PRINT "graphic 8"; 

268 NEXT С 

278 PRINT 

288 PRINT "PRESS NEULINE FOR NEXT GUESS" 
290 INPUT АЯ 

3gg CLS 

318 NEXT Z 

320 PRINT "NO GOOD" 

33g GOTO 35g 

34g PRINT""YOU FOUND ME IN * ";2 
35g PRINT "I WAS АТ "5B;" * ";C;" * "3A 
36g PAUSE 200 

378 CLS 

3ag RUN 


BLASTER-MIND 1 


There are also character arrays. In the next program, BLASTERMIND, two character 
arrays (A$ апа B$) аге used. AS stores the four-digit code you have to deduce, and 
B$ accepts your guess. The program compares your guess with its string, element by 
element. 


The principle of this game is simple. The computer creates a string, which contains 
four digits. No two digits within the string are the same, and @ is not used. You input 
your guess for the number as string B$, then press NEWLINE. A correct element in 
the correct location of the string will gain you a ‘black’, a correct element in the 
wrong position of the string scores a white. You have 10 guesses to work out what 
the original string is. After each guess, the ZX81 prints out your guess, then gives you 
a black score (as an inverse digit) and a white score (a normal digit). Do not use the 
same digit twice within a single string. 


1d DIM AZ( 4) 

28 DIM ва(4) 

3g LET АД(1) = STRZ(INT(HND*9) + 1) 
4d FÜR А = 2 TU 4 

5g LET AZ(A) = STRZ(INT(RNDX*9) + 1) 
6g РОН В = 1 ТОА - 1 

70 IF АЖ(Н) = A¥(A) THEN GOTO 50 
ag NEXT В 

90 NEXT A 
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100 LET СЯ = АЯ 

110 FOR Е = 1 TO 10 

120 SCROLL 

13g PRINT "ENTER GUESS NUMBER * ";E 


14g INPUT B 

158 LET B = ü 

16g LET U = g 

178 ТЕ BZ = АУ THEN GOTO 360 

180 FOR C = 1 TO 4 

190 IF AZ(C) = PA THEN LET B = B + 

298 IF AZ(C) = BZ(C) THEN LET AZ(C) = "g" 


228 FOR C = 1 TO 4 

23g IF AZ(C) = "Ø" THEN GOTO 288 

240 FOR D = 1 TO 4 

250 IF AZ(C) <> В%(0) THEN GOTO 274 
260 СЕТ ша U +1 

278 МЕХТ О 

280 МЕХТ С 

290 LET AZ = СЯ 

3gg SCROLL 

310 PRINT ,Bg;" ж ";CHRZ(B + 156);" * ";ш 
328 МЕХТ Е 

338 SCROLL 

340 PRINT "TIME IS ИР" 

35g GOTO 38g 

360 SCROLL 

378 PRINT "YOU WERE RIGHT IN * ";E;" ж GUESSES" 
38g SCROLL 

39g PRINT "THE CODE WAS * "sag 

4gg PAUSE 200 

410 CLS 

42g RUN 


BLASTER-MIND 2 


Here is another version of the same game, using only three digits. This version will fit 
within 1K. The digits @ to 9 are used (0 is not used in the four-digit game you have 
just played), but zero is never the first digit. As in the four-figure version, no digit is 
repeated. There is less “conversation” in this version, to get it into 1K, but you'll still 
find it fun to play (and a lot easier than the four-figure version). 


1g DIM AZ(3) 

20 DIM Bg(3) 

30 LET AZ = S TA UD 

35 IF AZ(1) = АЯ(2) ОН AZ(1) = АЯ(3) OR AB(2) 
= AZ(3) THEN GOTO 30 

4d FOR С = 1 TO 19 

5g INPUT BÉ 

ей IF AZ = ВЯ THEN СОТО 279 

78 LET CS = AZ 

8g LET B = 156 

9g LET u = d 
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10d FOR О = 1 ТО 3 

110 IF АХ(0) <>  üg(u) THEN GOTO 14g 
120 LET B = B + 1 

13g LET АХ(О) = 
14d NEXT Ә 

15g FOR D = 1 TO 3 

16g FOR Е = 1 TO 3 

17g IF BZ(D) <? AZ(E) THEN GOTO 200 
180 LET ш = U + 1 

190 LET AZ(0) = "2" 

2094 NEXT L 

21g NEXT 0 

22g LET АЯ = СҰ 

23g PRINT BZ;" * * ";CHNZ(B); * * "Su 
24g NEXT C 

25g PRINT АВ 

264 STOP 

278 PRINT AZ, "YOU GOT IT IN * 1; С 


The two preceding programs have used character arrays. To get proper string arrays 
(where each element of the list is longer than just one character) you need to 
DIMension not only the number of words in the list, but also the length of the longest 
word you are going to need to put into the array. 


The next program -- ROCK, SCISSORS, PAPER - shows this in practice. Line 20, 


which is DIM A$(3,8), sets up an array of three words, each of which can be up to 
eight letters long. 


ROCK, SCISSORS, PAPER 


It does not matter whether or not each word is as long as the second number in the 
dimension statement (the 8 in line 20) so long as no word has more letters than this 
second number. 


Also, you can specify one of the words by just using the first digit. The ZX81 will 
assume you want every letter in the word, without you having to spell it out. 


We'll put in just the first part of the program which should make this clear. 


Enter the following: 


10 RAND 

2@ DIM A2(3,8) 

3g LET AZ(1) = "ROCK" 

48 ТЕТ АЯ 3 = "SCISSORS" 

5g LET AZ(3) = "РАРЕВИ ' 
6@ SCROLL 

?И PRINT AZ(INT(RNO*3) + 1) 

ви GOTO 68 
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RUN this, and you'll see an endless series of ROCK/SCISSOR/PAPER words go 
belting up the screen. Stop the program with BREAK and enter the rest of the 
program (which will wipe certain lines in the above demonstration). 


6g LET P = g 
70 LET C = g 
ag INPUT A 
9g CLS 


104 (ЕТ В = INT(RND*3) + 1 

110 PRINT АТ 7,10;"YOU", АЯ(А)ҘТАВ 11;P 

128 PRINT AT 14,11;"ME", A2(B);TAB 11;C 

134 PRINT AT 3, 12; 

B THEN СОТО 19g 

1ANDB-2 OR А = 2 AND В = 3 
0 А = 3 AND В = 1 THEN СОТО 21g 

169 PRINT "I UIN" 

174 LET C=C + 1 

18g GOTO 80 

19g PRINT "DEAD HEAT" 

208 GOTO 8 

21g PRINT "YOU UIN" 

228 LET P= P +1. 

230 GOTO 8g 


R 


You can play this game for as long as you like, bringing it to a halt by entering any 
letter except A, B, C or P. To play it, keep in mind that ROCK will beat SCISSORS 
(as a rock can blunt scissors); SCISSORS will beat PAPER (for scissors can cut paper); 
and PAPER will beat ROCK (because a rock can be wrapped by paper). 


As you probably realised while you were entering the program, there is no skill in 
the game, on either the computer's part or the player's. P stores the player's score, 
and the computer's score is stored in the variable C. Note the use of TAB in lines 
110 and 129. This allows you to get two lines of PRINT from one line of program. 
The manual explains this (and further use of PRINT AT) on pages 115 and 116. 


While neither you nor the computer uses skill in that program, the next one 
demands skill from both of you - and а lot more skill is needed on the p-rt of the 
ZX81 than on the human's part. 


35 


CODEBREAKER 


It is an ideal game to play when you're tired of guessing the code the ZX81 has set 
up. You can get the ZX81 to guess one of yours. This program - CODEBREAKER- 
allows the computer to deduce a code of N digits, with the digits from 1 to L. In 
this listing, I’ve set N to 4 and L to 6, but you can alter them as you choose. The 
2Х81 can cope with codes which include the same digit more than once. It will come 
up with a code, then the word “ВІ АСК--”, Here you enter the number of digits it has 
correct, in the right place. It will then print WHITE = and you then tell it any digits 
it has correct but in the wrong place. 


This program is very slow, so always run it in FAST. 


1 LET N = 4 

2 LET М = 6 

3 LET L = M 

5 DIM RU + 1) 
19 DIM M(M*N) 

20 DIM 8 » 

3d DIM O(N 

4g OIM u(m) 

5g DIM H(N) 

би FOR 2 = 1 TO N 
8d LET G(2) = INT(RND*L) + 1 
9g NEXT Z 


104 FOR G = 1 TO М 
119 FOR 2 = 1 TO N 
128 PRINT G(Z)3 
130 LET M(N*G + Z - М) = 6(2) 
140 МЕХТ 2 
150 PRINT " * BLACKS ="; 
160 INPUT eee 
178 PRINT B(G); 
18g IF B(G) - N THEN GOTO 22g 
194 PRINT 
208 PRINT "CODE GUESSED IN * "3G3" * ATTEMPTS" 
21g STOP 
227 PRINT " * WHITES= "; 
230 INPUT U(G) 
24g PRINT u(G) 
250 LET 6(2) = 6(2) + 1 
260 FOR 2 = 1 TO М 
278 IF G(Z) - L - 1 THEN GOTO 398 
28g LET dA = 1 
29g ЕТ G(Z +1) = G(Z + 1) +1 
300 МЕХТ 2 
310 IF G(N * 1) - 2 THEN STOP 
328 FOR 2 = 1 TO G 
= 1 TON 
34g LET my = at + J - N) 
3) = G(3) 
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agg IF D(2) = Ø OR H(3) = d OR 0(3) 
H(3) THEN GOTO 44g 

410 (ЕТ сјај = g 

420 LET H(3) = g 

430 LET B =B +1 

44g NEXT J 

45g IF 8 - B(Z) THEN GOTO 25g 

46g FÜR 3 = 1 TO N 

470 FOR К = 1 TON 

488 IF D(3) = И OR H(K) = d OR D(2) - H(K) 
THEN GOTO 52g 

498 LET 0(2) = 

500 LET H(K) = 

51g LET ш= ш + 1 

520 NEXT К 

53g NEXT J 

54g ТЕ W - U(Z) THEN GOTO 250 

55g NEXT Z 

56g NEXT G 


MOON LANDER 1, 2, and 3 


We will take another break from learning at this stage, and have a look at three 
versions of a very popular program — MOON LAN DER. 


The space craft starts at a random height above the moon (1350 to 1549), with a 
random quantity of fuel (80 to 178.5) with a random velocity ( to 19). If you are 
lucky, you'll get starting figures which make it easy to land. If not, you'll need all 
your space-pilot skill to effect a successful landing. If you input too much thrust 
when prompted (line 2240) you'll have the great pleasure of exploding (line 2305). 
The variable names are chosen to make it easy to follow them through the program. 
Height is H, fuel is F, V velocity, T thrust and D duration. It is a good idea when 
writing programs to use variable names like this (ог you can even spell them out 
in full if you want to consume memory) because they make it a lot easier to sort out 
what does what in a program when you return to it after several weeks. Note that 
lines 2101 to 2106 have the effect of stripping the values of F, H and V down to 
one decimal place before printing. 


20 5 СЕТ R 2g 

2018 LET H = 135g + INT(RNO*2gg) 
2020 LET F = 88 + (INT(RNO*4gg) /2) 
2038 LET V = INT(RND*2g) 


2835 PRINT 

284d PRINT "PRESS NEULINE TO BEGIN DESCENT" 
2845 INPUT 
2047 CLS 
2848 LET T 
2858 LET О 
2868 LET K1 = 1 

2998 CLS 

2895 FOR А = 1100 

210% PRINT АТ 16 - Н/100, K1;" * ж +" 


c 
t< 


"и 
— 
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21g1 
2192 
2193 
2104 
2105 
2146 
2107 
2108 
2109 


211g 
2115 
2116 
2128 
2125 
2138 
2148 


2145 


2198 


2195 
2197 
2224 
2222 
2223 
2224 
2228 


223g 
2235 
2250 
2260 
2265 
2278 
228g 
2294 


2384 


2385 
2318 
2320 
233g 


LET F = INT(1g*F) 

LET F = F/1d 

LET H = INT(18*H) 

LET H = НИЛИ 

LET V = INT(1g*v) 

LET V = УИ 1d 

IF R> UG ORH < 1 THEN LET H = V 
IF R» @ ORH < 1 THEN LET A = D 


PRINT AT И, И" HGT:";H;" * * VELs "sv; 

и * * РЫ" Ip * * " 

LET V = V 17 С 1/3 

СЕТ Ка = K1 + RND 

IF K1 > 26 THEN LET K1 = 2g 

LET H = H - UV 

IF H > 168 THEN СОТО 2305 

LET F = F - 1/5 

IF 2*(INT(A/2)) = A THEN PRINT АТ 16 - н/198, Ка; 
raphic Y graphic T" 

IF zx INT а/д) Су A THEN PRINT АТ 16 - НИЦИ, КА; 
"graphic 1 graphic Y" 


PRINT AT 16, ;"TIME:";D - А; "піпе graphic 7 
one graphic Н four space one graphic Е 
seven graphic 7 one graphic R" 

IF F < 1 THEN GOTO 23/9 

PAUSE ЗИ 

IF H € 1Ud AND F> Ø AND V < 19 THEN LET Н = 1 

ТЕН < 190 AND V) 9 THEN LET R = 2 

IF F < 1 THEN LET R = 3 

IF В > Ø THEN GOTO 2284 

NEXT A 


PRINT AT 19, J;"THRUST? * "5 

INPUT T 

PRINT T," * DURATION? ( 11)" 

INPUT D 

IF D > 18 THEN GOTO 226% 

GOTO 2999 

IF В = 1 THEN PRINT "SUCCESSFUL LANDING" 

IF В = 2 THEN PRINT " seven spaces CRASH LANDING", 
"DIGGING А * ";INT(V * 4.5);" * METRE CRATER" 

IF R = 3 THEN PRINT "YOU HAVE RUN OUT OF FUEL", 
"GOODBYE" 

IF H> 1694 THEN PRINT "YOUR SHIP EXPLODED" 

PAUSE 40И 

CLS 

RUN 


Note that all the line numbers in this program lie between 2000 and 2330. This is so 
you can, if you so choose, put this program with one of the others into a single bigger 
program, to enable you to load both programs at once. If you do this, you'll have to 
add a 'menu' which gives you the name of the two (or more) programs, with 
relevant GOTOs which depend on the program you choose. 


The above lunar lander has one disadvantage -- it uses fake formulae, chosen for 
their effectiveness in creating the game, rather than their relationship to 'real life', 


38 


The next landing program uses 'proper' equations, but has no display worth 
mentioning. Once you're used to landing the moon lander program above, input the 
following, and once you can land it successfully, work out your own display. The 
variables used are A (velocity), B (height) C (fuel) and T (thrust). The formulae used 


are: 


H = H + Vt + 1 at? 
2 


ү = V + at 


An input of 5 will cancel the effect of gravity. 


LET A = -29 - INT MET 
LET B = 45 + INT(RND*5Ø 
LET С = 120 + INT(RNO*3g) 


PRINT АТ 5, @s"HEIGHT * ";8;" ж VELOCITY * "54, 
"FUEL * "Pc," М ж ж" а se 

IF C € 1 THEN GOTO 1807 

PRINT AT 10, 8;"HOU MUCH THRUST?" 

INPUT T 

PRINT AT 10, 8;" 16spaces " 

IF T> C THEN LET T СИ 


LET. Ба Са Т, 
LET B = B + + (T - 5)/2 
СЕТА = A + (T - 5)/2 


IF В > Ø THEN GOTO 4g 
IF ABS B < 5 AND ABS А < 5 THEN PRINT АТ 5, g; 
"YOU HAVE LANDED SAFELY" 
IF ABSB& 5 AND ABS А < 5 THEN STOP 
PRINT AT 5, G;"HEIGHT * ";8;" ж FUEL * "5C;" Sspaces", 
" 1spaces " e = 
GOTO 19g 
PRINT AT 5, @3;"YOU HAVE RUN OUT OF FUEL" 
PRINT AT 1], U;"CRASHED AT * ";ABS as" ж мрби 
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The final LANDER program has a display, and will fit within 1K. It uses a 
modified form of the formulae used in the preceding program. 


In this program, К is the position of space craft across the screen. F is the fuel, Н 
is the height and Z the variable assigned to unPRINT the 'old' craft just before the 
new one is PRINTed into position. 


When using PRINT AT to simulate moving graphics, it is helpful to delay the 
unPRINT to the last possible moment, to keep the time the moving object is off the 
screen down to the minimum. The variable Z aids in this. 


14 LET K = 3 

2g LET F = 3300 

25 LET V = 15 

3g LET Н = 5gg 

ай LET 25H 

5g PRINT AT 12, 15;"graphic E two graphic 7 graphic В" 

6g PRINT AT 6, 25,"F * "jr," x ж ж ТАВ 25," H ж"; 
Hj" X * * "TAB 25;"y 5 тд” чки 

78 PRINT АТ (609 - 2)/50, хин 

ag LET K = K + RND quis 

9g PRINT АТ ( 698 - н )/5Ø,K; "graphic T graphic Y" 

17 LET Z 3 H 

11g INPUT T 

12g СЕТ V=v+5S-T 

13g LET H = H = UV 

14g LET F = F - ABS(T) 

145 IF F < 1 THEN GOTO 19g 

158 IF H2 Ø THEN GOTO 6d 

16g IF VY ЗИ THEN GOTO 19g 

17g PRINT "LANDED * ";F - V;" * POINTS * 1; 

18g GOTO 17 ICE eT ee 

19g PRINT " * CRASHED AT * "sy; 

209 GOTO 197 жақсы E 


| included three versions of this program to show you how different approaches 
can alter the screen display, the player interaction, and the chance of player success. 
Now you've seen three somewhat different programs in action, write your own 
LUNAR LANDER. 


WRITING PROGRAMS 


Most books on programming suggest you start by drawing up a ‘flowchart’ -- a pretty 
combination of circles, diamonds and slanting rectangles -- which sets out the path 
and operations the computer will follow to execute the program. In theory this is 
fine, but in practice, especially when working with a computer like the ZX81, the 
time and trouble involved is probably not worth it. 


It is, however, essential to know exactly what you want the computer to do before 
you start creating a new program, even if you're not quite sure how you are going to 
get the ZX81 to carry out the task. 


Sometimes a rough sort of flowchart -- just the main steps the 2Х81 will take linked 
by lines and loops -- will help to clarify your thinking. This is also a good way of 
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spotting potential problems, like an infinite loop, or of not specifying the computer's 
task exactly. 


1 generally work out the 'core' of a program on paper, then enter it into the ZX81, 
starting at about line 100 to leave plenty of room before it to assign variables, set up 
arrays and the like. If you're working on a fairly simple game, or are adapting one 
from a magazine or book, it is just as well to work directly on the ZX81, but keep a 
notebook handy to record things like the fact that, for example, string A$ is for the 
player's name. 


If you've got a 16K pack, don't let its presence lead into sloppy programming habits. 
It is very easy to set up a long and clumsy set of IE/THENs which really should 
be replaced by an IF/THEN instruction to GOSUB. When you have memory to spare, it 
often seems too much trouble to bother cleaning up your programs. GOTO statements 
often cover a multitude of situations which arose because you did not give sufficient 
thought to the maximum line number you would need. When you examine a listing, 
be particular of any non-conditional GOTOs. 


The best thing you can add to a longer program is the element of surprise. If you 
can include situations which do not occur every time a game is played, you'll ensure 
the game will remain interesting fcr a much longer time than would be the case if 
every situation was triggered every time a game was run. 


You can speed up slow-running games to some extent by placing often-used 
subroutines at the start of the listing. The program will run a little faster because the 
computer must search through the whole listing when it comes across a GOTO or 


PRINT TENI га , 
RETUREN 

PRINT "TURNING"; 
RETURN 

PRINT “GRAVES”, 
RETURN 

PRINT СПЕ“ 


RETURN 
PRINT “THEN”, 


948084948 


шə 


GOSUB command. If the subroutine is near the start of the listing, the ZX81 will not 
have to go through, say, the instructions every time it searches for a subroutine. 


You can make the first line of the program GOTO some line number to jump over 
the subroutines. Variables which must be assigned at the start of a game can actually 
be listed right at the end of the program, ending with a GOTO leading back to the 
start of the game part of the program. 


Another way of improving programs, and of making them more interesting to 
players for a longer time, is to add a “degree of difficulty". Make sure that this 
feature really does increase the difficulty of the game, and ensure that -- even at the 
highest level of play -- the final score is reasonably attainable. 


You can add further interest to games by awarding points, or scores, ratings or 
whatever, that are genuinely related to the speed or skill the player demonstrated. 
A further twist is to award a 'rank' (like 'star fleet captain' or 'incompetent fool') 
to the player, depending on how well he or she did. Points and ranks ensure a player 
remains interested in a game for a longer time, as the player will try to best his or 
her best score or ranking. 


Keep these points in mind when improving the programs given in this book, or when 
writing your own games. 
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NOUGHTS AND CROSSES 


You probably know how to play this game. Moving alternatively, players put either 
8 Zero or a cross in a position on a 3 X 3 grid, trying to get three in a row in any 
direction. 


In this version — which just squeezes into 1 K — the computer always goes first, taking 
the top left hand square. 


Despite the brevity of the program, the ZX81 is unbeatable, although you will draw 
with it from time to time if you are a good player. To play, you just touch the 
number relating to the square you want to move into, and it will instantly change 
into a zero. The ZX81's response will be almost instantaneous. 


The ZX81 will not know when it has won, as a routine to detect this would have 
made the program exceed 1K. If you have a 16K pack, you might like to try and 
incorporate а “l WIN" апа “ITS A DRAW” routine. 


At first sight, NOUGHTS AND CROSSES might seem a relatively easy game to 
program, but in fact it is not simple at all. And it is more difficult to write a fallible 
program than it is to write a game which is virtually unbeatable. 


According to the book "COMPUTERS, THEIR IMPACT AND USE*', by Robert E. 
Lynch and John R. Rice, there are 362,880 possible different games of noughts and 
crosses. This program will play 40,320 of them. 


Note that in this listing 9 equals an inverse space, and * equals an ordinary space. 


10 PRINT "жанан 
24 PRINT "*x*gx2xqgx 3" 
3g PRINT "ажа" 
4g PRINT "аааааазаааа" 
5g PRINT ! quee gn 
6g PRINT "*4*g*soxgxg" 
78 PRINT "зеен шп 
8g PRINT "вааазазаааа" 
9g PRINT "eerie an 
10И PRINT "*7*àx*gs*qxg" 
118 PRINT "Энд д" 


128 GOSUB 200 
13g LET A=T - 1 
14g LET B=T 


Note that in the next line, each character refers to the graphics character from that 
key. 


750 LETT = CODE” 


graphic 4 graphic E graphic 5 graphic 1 graphic 7 graphic A graphic 2 graphic T 
AC A МЕ А graphic 4 graphic 7 graphic E graphic 1 graphic 5 graphic 2 
+ 
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169 LET X = 61 

170 60508 240 

180  GOSUB 200 

190 GOTO 148 

200 LET X = 52 

21g IF ТМКЕУЯ <> "W THEN СОТО 219 

228 IF INKEYÉ = "" THEN GOTO 220 

23g LET T = CODE INKEYS - 29 

240 PRINT AT CODE " 

graphic 1 graphic 1 graphic 5 graphic 5 graphic 5 graphic D graphic D graphic 
D’(T), CODE " 

graphic 5 graphic D graphic 1 graphic 5 graphic D graphic 1 graphic 5 graphic 
рТ); CHRS$(X) 


258 RETURN 


If you're running this program on a new ROM ZX80, change the following lines: 


214 PAUSE 40000 
228 РОКЕ 16437, - 1 


ROLLER-BALL 


A ‘ball’ is sent scooting across the screen to come to rest on the back board. Its 
position determines your score. RUN it to find out how to play it, and to work out a 
strategy to get the maximum score. 


14 PRINT ТАВ 9;"ROLLER-BALL" 

29 LET H = 3 

ag LET F = 1H*(RND*5) + 1 

4g FOR G = 1 TO 19 

5g PRINT "THIS IS ROLL NUMBER * ";G 


60 LET F = F + 3*RND 

70 PRINT AT 11,4;"UHERE WILL YOU ROLL (1 TO 19%)?" 

8g IF G> 1 THEN PRINT АТ 18,8;"LAST ROLL WAS TO * ";D 

9g LET С = 1 

18g INPUT D 

118 IFD < 1 OR D» 198 THEN GOTO 197 

120 CLS 

138 FOR E = 1 TO 18 

14M PRINT AT Ø, И; (note all these are inverse) "1111177 
9??71111???2***?222111111" 

15g PRINT AT 18 - E, C;CHRZ(43 + E) 

171 IF E < 18 THEN PRINT AT 18 ~ E,C;" x " 


184 LET C = C + D/F 

198 IF C > 31 THEN PRINT AT 13,12; "UILD BALL" 

288 IF C > 31 THEN LET C = 1 

21g NEXT Е 

226 IF C< 6 OR C» 9 AND C < 16 OR C > 25 THEN LET K = 1 
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23g 


246 
250 
260 
278 


280 


IF CY 5 AND C < 19 OR СУ 15 AND C < 19 
OR CY 22 AND C < 26 THEN LET К = 9 

IF C > 18 AND C < 23 THEN LET K = Sf 

PRINT "YOU SCORED * ";К 

LET H = H + K E 

IF G > 1 THEN PRINT "TOTAL SCORE: * ";H;" * FROM ж"; 
G;" * ROLLS" ы ч = 

NEXT G 


HIGH-FLYER 


If you wish to start ‘improving’ games in this book, begin with the next program. As 
you'll see when you RUN it, there is no player interaction. Once you've pressed 
NEWLINE following RUN, it's just a matter of sit back and watch. 


You could add a PRESS NEWLINE FOR NEXT SPIN routine, or if you feel 
excessively creative, you could add a HOLD option. If HIGH-FLYER runs too fast 
for your liking, add a loop FOR М = 1 TO 50 NEXT М. I'll leave it up to you to work 
out where the loop should go. 


PRINT ТАВ 5;"££ HIGH-FLYER ££" 

PRINT 

PRINT "ITS FRUIT MACHINE TIME, I HOPE" 
PRINT " * * * YOU HAVE GOOD REFLEXES" 

PAUSE 200 

LET M = (INT(RND*2g) + 19) /2 

CLS 

PRINT "YOU HAVE £";M;" * TO START" 

LET C 
LET D 
LET E 
LET F 
PRINT 
PRINT 
PRINT 
PRINT TA 


H H H H 
www 


B 5; 
1 TO 4 
INT(RNO*4) * 1 


FOR Z 
LET B 
IF В = 2 THEN GOTO 260 
IF В = 3 THEN СОТО 299 
IF В = 4 THEN GOTO 320 
LET C=C+1 

PRINT " * £££ 32 spaces ЕЕЕ * "; 
GOTO 34g a 

LET О=О + 1 

PRINT " * three graphic T 32 spaces 


three graphic Y * "; 
GOTO 34g = 
ЕТЕ = E + 1 
PRINT " * three graphic A 32 spaces 


three graphic A ж"; 
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GOTO 340 

LET F =F + 1 

PRINT " * g Я £ 32 spaces 
PAUSE 5И 


н 
* 7 


= 1 AND F = 1 THEN GOTO 459 
4 OR F á THEN GOTO 459 
OR F 3 THEN GOTO 5ЙЙ 


— 
^ 
о 
" H H 
к 
о 
=> 
о 
| H 
+ 
[=] 
m 
m 


ин 
ы 


IF C = 308 О = 30RE 
LET S = (INT(RND*4) + 1))/2 
PRINT TAB В;"УОЦ LOSE £"35 
LET М = М - 5 


GOTO 55й 
PRINT TAB 93"£ JACKPOT £" 
PRINT 


LET M = M + 1g 

PRINT TAB 9:"YOU WIN £198" 

GOTO 55 

LET M=M+ 1 

PRINT 

PRINT ТАВ 11;"3 OF A KIND" 
PRINT 

PRINT TAB 8;"YOU UIN £2" 

IF М< 1 THEN GOTO 64g 

IF Му 25 + RND*3U THEN GOTO 67d 


PRINT 

PRINT TAB 11;"YOUR STAKE: £";M 

PRINT 

PRINT "STAND BY" 

PAUSE 2ЙЙ 

CLS 

GOTO 190 

PRINT "END OF GAME,  PUNTER,"," ж * * ж * YOU ARE 
BROKE" 

GOTO 68g 


PRINT "YOU HAVE BROKEN THE BANK",, "WITH &";М 
PAUSE 4ЙЙ 

CLS 

RUN 


BUN FIGHT 


The random number generator cooks up an ovenful of buns, which you and the ZX81 
proceed to scoff. There is a limit to how many buns you can eat at a time, and the 
loser is the person who eats the last bun. It is fairly easy to write a program which will 
never lose this game, but such a program rapidly becomes boring, if not infuriating. 
Therefore, the program has built-in fallibility, although it will still win more than half 
the games it plays. 


о со чо UO! £ WN — 


N ad — 2 — ad md — md md mò 
БОС з Сс (щл (а нь 


NN ND PD PRO SO NO NO PD 
O ÇO — O, (n рым > 


[ 
= 


C3 (3 C3 WW 
Qn £ G ча 


PRINT TAB(8);" BUN FIGHT " 


SLOW 

LET M = g 

LET ÉE = f 

LET Z = 18 + INT (RND*2g) 
LET H = 3 + INT(RND*3) 


IF M = d THEN PRINT "SCONES LEFT * ";2 ,,"THE MOST 
YOU CAN TAKE IS * ";H 

IF EY И AND M = @ THEN PRINT "YOU TOOK * ";E,, 
"] TOOK * ";Q 

FOR K = 1 TO 2 

PRINT "tuo graphic S * "; 

IF RND у .6 THEN PRINT 

NEXT K 


PRINT 

PRINT 

IF M 1 THEN PRINT TAB(8);" YOU UIN " 
IF M 2 THEN PRINT ТАВ (12);" 1 UIN " 
IF M > И THEN GOTO 15 

PRINT 

PRINT "HOW MANY WILL YOU TAKE?" 

INPUT E 

IF EX 1 OR E» H THEN СОТО 28 

LET Z = 2 -E 

IF Z > Ø THEN GOTO 26 

LET M = 2 

GOTO 34 

LET Q = Z - 1 =- INT((Z - 1)/(H + 1))#(H + 1) 


IF Q = И AND 7 <> 1 THEN LET Q = INT(RND*H) + 1 

IF Q > = 7 THEN GOTO 27 

IF 2) F + 2 AND RND 2 „4 THEN LET Q = Q + INT 
(RNO*2) = INT(RNO*2) 

IF Q> ноя Q < Ø THEN GOTO 26 

IF Q = d THEN LET Q = 1 

LET 2-7 - 

IF Z = В THEN LET М = 1 

CLS 

GOTO 7 


Here’s a slightly simpler version of the same program, which fits in 1K, and which 
gives the player a somewhat better chance of winning. After the first version, you'll 
find a modification which gives you a very good chance of winning. 
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TIMBO NIMBO 


1d LET M=@ 

2g LET E = Jg 

3g LET 2 = 15 + INT (RND*1Q) 

4g IF 2*INT(2/2) = 2 THEN GOTO 3g 

5g LET H = 3 

6g IF E > Ø THEN PRINT AT 7,7;"YOU TOOK * "E, 
"I тоок * ";Q ү 

7g] FOR K = 1 TO 2 

ag PRINT K;" * graphic 2 graphic 1"; 

9d IF RND > .6 THEN PRINT 

100 NEXT K 

118 INPUT Е 

128 LET 2 = 2 - L 

130 IF Z = Я THEN PRINT ,"I UIN" 

14g ТЕ 7 =Z THEN STOP T 

150 LET Q = Z7 - 1 - INT((2 - 1)/(H + 1))*(H + 1) + 
INT(RNO*2) 

160 ТО > ZOR G = d OR Q = 4 THEN СОТО 159 

177 LET 2 2 -Q 

180 IF Z = d THEN PRINT ,"YQU UIN" 

190 IF 2 = @ THEN STOP Y de eae 

288 CLS 

21g GOTO 6g 


There is no change from game to game in the maximum number you are allowed to 
take — it is set at 3. To give yourself a much better chance of winning than you get 
with the above version, make the following changes: 


15d LET Ч = INT(RND*3) + 1 
16g IF Q > 2 THEN GOTO 159 


DEDUCTO 


A very brief 1K program in which you have 10 guesses to find the number (between 
1 and 200) chosen by the 2Х81. The clue given in line 90 takes a bit of getting used 
to, but once you've played three games, you should be able to ‘read’ it without any 
difficulty. Notice how SCROLL is used to ensure you do not run out of screen. A 
SCROLL must be included in a program like this before every PRINT statement. Try 
leaving one out and see what happens. 
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14 LET А = INT(RNO*2gg) + 1 


20 IF ВМО ВМО THEN СОТО 10 

3g FOR B = 1 TO 19 

ай SCROLL 

5g PRINT "GUESS NO. * "38 

6g INPUT C 

?И SCROLL 

ви IF C = A THEN GOTO 11g 

9g PRINT "URONG * ";C, "CLUE- * ";SQR(ABS(A - C)) 


10g NEXT В 

114 SCROLL 

128 PRINT A, 

13g IF C»? А THEN STOP 

140 PRINT "YES, YOU СОТ IT IN * "38 


INCREDIBLE DISAPPEARING 
RAM 


Remove the display from GEIGER, change the program just a little, and you have a 
1K game in which you try to find a missing RAM chip on a 15 x 15 grid, using 
nothing but your wits and a patented RAM-detector. 


18 LET A=INT (RND#15} 1 
га LET B-INT (RND+=*1%S) + 


OLL 
ва PRINT “SEARCH ";t 
ur D 


аа IF A-C ANP В=Е THEN БОТО ДЕ 


зае SCROLL 
iie PR INT ae ee š {- ae ar H i .. ШЕ 


© SCROLL 
130 PRINT "DETECTOR READS: "; (B 
-D) + (B-E) 10 
140 LET С-ге 


LL 
190 PRINT “YOU SCORED ";308-9zC 
208 GOTO 1608 


In this program, the RAM is hidden at A and B, with C counting the number of guesses 
you make. Line 13@, the ‘RAM detector’ gives a very useful read-out, and within 
two or three games you should have mastered its output. Note that unlike some 
‘hunting on а grid’ games (such as HIDING IN 3-D) there is no limit to the number of 
guesses you can make. However, you should obviously try and find the RAM in as 
short a time as possible. Your score (line 199) is directly related to the number of 
attempts you had to make to find the thing. 
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CHEMIN DE FER 


Baccarat was first introduced into France from Italy in about 1490, during the 
reign of Charles VIII. It is most unlikely, historians say, that Charles played it on a 
2Х81. The Italian game was called Baccara, and this game ~ Chemin de Fer ~ is a 
distant cousin of the old favourite. ZX81 Chemin de Fer is based on a dice version of 
the casino game which is usually played with cards. You and the ZX81 (the banker) 
roll five dice each, If any die comes up 2 or 5, it must be rolled again. You add the 
pips on dice which did not come up 2 or 5, and add to this the total of the pips from 
the dice you've rolled again. 


Ҥ a die comes up 2 or 5 a second time, it counts as zero. The aim is to get as close as 
possible to 9, or to get a two-digit number ending in 9. The program automatically 
strips a two-digit number down to its final digit. The program allows 9 winning games, 
with dead-heats not counted. 


1g LET 81-2 f 

2g LET P1 = g 

3g GOTO 34g 

4g LET D = g 

5g LET C = d 

64 FOR G = 1 TO 5 

78 LET А = INT(RND*6) + 1 

ag ІРА = 2 08 А = 5 THEN LET C=C + 1 
9g IF A = 2 OR A = 5 THEN LET А = g 
199 PRINT A;" ж"; 

114 LETD=OFA 

128 МЕХТ С 

134 PRINT 

14d PRINT 0," чки, 

158 IF D > 9 THEN LET'D = D - ЗИ 

16 PRINT D 

178 IF D> 9 THEN LET D =D - 19 

180 PRINT "TOTAL ON FIRST ROLL IS * "3D 
199 IF D = 9 THEN PRINT ,"LA GRANDE" 
28g IF D = 8 THEN PRINT ,"LA PETITE" 
218 IF D = 7 THEN PRINT ,"NATURAL" 

220 IF C ОН D = 7 OR D = В OR D = 9 THEN RETURN 
239 PRINT "MUST ROLL * "3C" * AGAIN" 
246 FORA = 1 TO C 

258 LET E = INT(RNO*6) + 1 


268 IF E 2 OR £ = 5 THEN LET E = ff 
270 LETO =D+E 

288 МЕХТ А 

299 PRINT D;" * * " 

307 IF D» 9 THEN LET D = D - 1g 
318 PRINT D 

320 IF D> 9 THEN LET D =D - 18 
339 RETURN 

34g PRINT "BANKER" 

35g G0SUB 4f 

360 PRINT "FINAL TOTAL * "30 
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374 INPUT AZ 


38g LET 2-0 

39g PRINT "PLAYER" 

agg GOSUB 4g 

485 PRINT "FINAL TOTAL * "30 

418 INPUT АЯ 

428 PRINT "BANKER", "PLAYER" 

438 PRINT 2,0 

44d IF 3 = D THEN PRINT "STAND-OFF" 
45g IF 3 = D THEN GOTO 510 

46g IF J > D THEN PRINT "BANKER"; 
478 IF J > D THEN LET 81 = B1 + 1 
48g IF 3 < О THEN PRINT "PLAYER"; 
49g IF 3 < D THEN LET P1 = P1 + 1 
søg PRINT " * WINS" 

510 PRINT "TOTALS" 

52g PRINT B1, P1 

53g IF 81 + P1 = 9 THEN STOP 

54g INPUT AZ 

55g CLS 

56g GOTO 34g 


BUILDING A LIBRARY 
ШІ 


E 


№ 
f 


SAVE each program before you RUN it, just in case you've programmed in an error 
which will make it crash and vanish. 


Resist the temptation to put all your programs on one cassette, one program after 
another. The frustration you'll experience while waiting for the ZX81 to find a 
particular program (assuming you are able to remember which code name you've 
given to each program) is not worth the money you'll save on cassettes. 


Go to a computer shop (or buy by mail from one of the companies which advertise 
in the monthly computer magazines) and get a set of C-12 cassettes. Put just one 
program on each cassette, with at least two copies of each program on each side, just 
in case something happens to one of your copies and you find it difficult, or 
impossible, to LOAD. 


Write the name of the program on the cassette and on the cardboard insert, along 
with the 'code name' under which you've saved it. You'll find this makes it very 
easy to find the program you want, and as your library builds, it will give you 
quite a feeling of accomplishment to see all those programs ranked side by side. 
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THE ASHES 


I've pitched (!) England against Australia in this program, but there's no reason why 
you can't substitute the team names of your choice. You might prefer to rewrite the 
program slightly so that, when you first run it, it asks you to input the names of each 


team. 


If you decide to run this in SLOW, and delete the PAUSE statements, add a 


loop for М = 1 TO 30 NEXT М between lines 1170 and 1180. 


Uu 
1928 
1Й5@ 
1748 
1Й5Й 
1060 
1070 
ливи 
1120 
1135 
1137 
1148 
115g 
1155 


1157 
117g 
118g 


1285 
1297 
1218 
1211 
1212 
1213 
1214 
1217 
1228 
123g 
1240 
1245 
1250 
1255 
1257 
1260 
1270 
128g 
1290 
1295 
1297 
131g 
1320 
133g 
1334 
1340 
1354 


PRINT АТ 3, 93"THE ASHES" 

GOTO 134g 

PAUSE 140g 

СЕТ B =B +1 

IF В = 7 THEN LET C=C + 1 

IF В = 7 THEN LET B = 1 

CLS (Delete this line if deleting PAUSE) 

LET E = INT(RND*7) + 1 

IF £ 2 6 THEN GOSUB 1205 

IF A = 2 THEN PRINT АТ 11,5;"AUSTRALIA: * "3A(4) 

PRINT AT 9, 5;"ENGLANO: * "3A(3) 

IF ВМО Y „5 THEN LET É = d 

PRINT АТ 13,5; "ВАТЅМАМ * "3D 

PRINT АТ 15,5; "ОУЕН - "$c," жж * BALL ";CHRÁ(B + 
156); "ou i rd 

PRINT АТ 17,5;"RUNS FROM BALL 

LET A(A * 2) = АГАЧ 2 ) ЧЕ 

GOTO 193g 


іж 


";В;" - "SE 


LET P = INT(RND*3) + 1 

CLS 

FOR Y = 1706 

PRINT АТ 12, 93" BATSMAN ж ";D;" ж QUT" 
PAUSE ЛИ Е 


PRINT АТ 12,9; "ВАТ5МАМ ";0;" QUT" 
PRINT АТ 16, КҮС: FE ee TO 


PAUSE 1d 

IF P = 1 THEN PRINT AT 16,113" RUN OUT " 
IF P = 2 THEN PRINT АТ 16,11;" CAUGHT 

IF P = 3 THEN PRINT AT 16,11;" BOULED " 
NEXT Y 

LETO 2 D «* 1 

PAUSE 200 

CLS 


IF D = 11 THEN GOSUB 1420 

IF А €*3 THEN RETURN 

CLS 

PRINT TAB(8);"END OF GAME" 

PRINT 

IF А2) ? Ы THEN PRINT "ENGLAND * "; 

AP od s 3) THEN PRINT "AUSTRALIA * "; 
u Y * "Ü'¿ABS(A(3) - А ;" ж Е 

ЛА 3ABS(A(3) (4)); RUNS 

RUN 

DIM A(4) 

LET А = 1 
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136g 
1378 
1388 
139g 
1400 
141g 
1420 
1425 
143g 
1435 


1437 
144g 
145g 
1460 
1478 


LET B = f 
LET C = 1 

LET D = 1 

LET E = g 
LET A(4) = d 
GOTO 1g3g 
LET A= A + 1 
CLS 

LET B = 1 


IF A = 2 THEN PRINT AT 13, 4; "ENGLAND ALL QUT 
FOR ж ";A(3) 


PAUSE 2ИИ 
EET С = 


RETURN 


DIGITAL CLOCK 


This short program makes effective use of PAUSE, it is written only to run in the 
FAST mode, but if you prefer the smoothness of SLOW, you can delete line 170 and 
replace it with a small loop which will allow a SLOW clock to keep reasonable time. 
This clock does not keep very accurate time, but is a good demonstration of the 


2X81. 
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34g 
35g 


GOSUB 2gg 

PRINT 

PRINT 

PRINT 

PRINT TAB(8);H;'*;"; 

IF M САИ THEN PRINT "g"; 
PRINT m;";"; 

IF S < 140 THEN PRINT "g"; 


PRINT S 
LET 5 = 5 +1 

IF 5 = ӨЙ THEN LET M = M + 1 
ТЕ S = 64 THEN LET S = d 

IF М = 68 THEN LET H = H + 1 
IF М = 6M THEN LET М = g 

IF H = 13 THEN LET H = 1 
PAUSE 33 

CLS 

GOTO 30 

PRINT 

PRINT 

PRINT TAB(8);"DIGITAL CLOCK" 
PRINT 

PRINT "WHAT IS THE ТІМЕ:" 
PRINT 

PRINT "IN HOURS?" 

INPUT H 


IF H > 12 THEN GOTO 270 

PRINT TA8(6);H;" * AND MINUTES?" 
INPUT M 

IF M > 59 THEN GOTO 399 

PRINT M;" * AND FINALLY, SECONDS" 
INPUT S 

IF 5 > 59 THEN GOTO 33g 

RETURN 


ARTIST 


This little program plots a number of inverse spaces on the screen. Their positions 
depend upon which key (5, 6, 7 or 8) you press. The loop FOR М= 1 TO 10 NEXT М 
is included to slow the thing down. Without it you'll possibly find it runs too fast to 
control effectively. However, you can remove the loop if you like, or make it longer 
or shorter. 


SLOU 
G0SUB 18g 

PRINT AT Y, X;CHRZ(K) 
LET РА = АЯ 

LET AZ = INKEYZ 


IF АЯ = "" THEN LET АЯ = РА 

IF АЯ = "7" THEN LET Y = Y - 1 
IF Ag = "6" THEN LET Y = Y + 1 
IF АЯ = "5" THEN LET X = X = 1 
ТЕ АЯ = "B" THEN LET X = X + 1 


IF X 2 THEN LET X = 2 
IF X» 31 THEN LET X = 31 


134 IF Y < 2 THEN СЕТ Y = 2 


140 IF У» ОЙ THEN LET Y = 2d 
15d FORN = 1 TO 1d 

164 NEXT N 

177и GOTO ЗИ 

18g LET X = 16 

190 LET Y = 7 

20g LET K = 128 

21d LET АХ = "" 

220 RETURN 


The subroutine (from line 180) places the initial blob (at 7, 16) and determines that 
CHR$(128!'s will be plotted. By all means change the starting position and the nature 
of the beast (or make them random if you prefer). 


ACPHANUM 


scares 


SC^.E2 


SCALE! 


Scato 


ЈЕ 


BACK-STABBER 


This program is self-explanatory (and good fun to play). 


18 LET D = 28 

2g FOR F = 1 TO 50 

3g PRINT AT 10,10; "5ТАМО BY" 

4g PRINT АТ 18,147;" STAND BY" 

5g NEXT F pap 

70 CLS 

8g LET A = IA eee +1 

9g LET 8 = INT(RNO*17) + 1 

100 IF NOT ABS(B - A) > 1 THEN GOTO 9g 
114 LET C = INT(RND*1f) + 1 
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12d IF C = A OR C = В THEN GOTO 119 


134 PRINT "MY FIRST NUMBER IS * "5A 
148 PRINT ТАВ 8;"MY SECOND IS * и; в 
150 PRINT 
168 PRINT TAB 8;"YOU HAVE &";0 
176 PRINT 
18g PRINT "HOW MUCH DO YOU BET MY NEXT" 
190 PRINT "NUMBER LIES BETWEEN * "pap" X AND * ",8;"?" 
208 INPUT Е 
18 ја Е » O TAEA GOTO 200 " : 
2 FE „ИА THEN PRINT ,"COUARD 
230 FOR F = 1 TO SØ М 
144 Бо АТ {ш пикир, 
PRINT AT 10,1Й;"ТН1МК1НС 
260 NEXT F 
278 PRINT AT 18,18;"aight spaces" 
28g PRINT 
29g PRINT "MY NUMBER IS * ";C 
300 IF E < .d1 THEN СОТО 20 
31g IF C > А AND C < B OR C < A AND C > B THEN PRINT 
"WELL DONE, YOU UIN £";2*E 
328 IF C> A AND С СВ ОВ C € A AND СУ B THEN LET 
D = D + 2*E 
33d IF С) A AND C & B OR СУ A AND C € B THEN GOTO 2g 
зай PRINT "SORRY, YOU LOSE £";E - „5 
35g LETO=D-E+.5. 
36d IF D> .5 THEN GOTO 29 
378 PRINT "YOU ARE BROKE" 


ZOMBIES 


A solid black square appears on the screen. Swamps appear (grey squares), then 
zombies (inverse asterisks) then you (an inverse A). As you watch, the zombies start 
moving towards you. No matter where you go on the board, they will move towards 
you. Your only escape is to trap them into walking into swamps. You cannot cross 
the swamps either, but at least you can see them. The zombies are blind, and there 
lies your only hope. 


The initial board is set up at random, except that the subroutine from 1000 produces 
biased random numbers putting everything roughly in the right place (је. you around 
the centre, a generous scattering of swamps, and the zombies outside the swamps). 


You move in the directións shown on the arrows 5, 6, 7 and 8 by touching the key of 
your choice once. To move diagonally, use the shift key, then 5, 6, 7 or 8. You will 
move at 45 degrees anticlockwise to the arrow by holding shift down. Y ou can only 
make one move at a time, and must wait till all the zombies have moved until you 
move again. If a zombie gets you, by landing on top of you, the program goes into an 
infinite loop. You'll need to press BREAK to get out of the loop. 


* * * tuenty-tuo graphic H" 


N => С (л > 
RA 
ос 
Dm 
- = 
= 
< 
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338 


331 
332 
333 
334 
34g 
350 
360 


378 
38d 
39g 


1009 
1010 


PRINT " * * k * graphic H twenty inverse space 
graphic H" 

NEXT Z 

same as 1Й 

FOR 2 = 1 TO 42 

LET A = 15*INT(2/21) + 136 

GOSUB 1ggg 

IF НЕ НАТА 

IF INT(2/21) 

NEXT Z 

LET U = X 

LET V = Y 

IF INLEYS = "" THEN GOTO 16g 

LET В = CODE INKEYS 

IF В = 56 THEN STOP 


1 THEN LET Х(7 - 20) = x 
1 THEN LET Y(2 = 20) = Y 


"и 


IF (B = 33 OR B = 112 OR B = 114) AND U > 1 THEN 
LET U=U- 1 

IF (B = 34 OR B = 113 OR В = 114) ANU V € 28 THEN 
СЕТ V = U+ 1 

IF (B = 35 OR B = 112 OR B = 115) AND V2 1 THEN 
LET V = у 1 

IF (B = 36 OR B = 113 OR B = 115) AND U< 2M THEN 
LETUSU-* 1 


PRINT AT Y, X + 4;"inverse space" 


LET X = 

LET Y = V 

PRINT AT Y, X * 4;"inverse A" === 
FOR Z = 1 TO 21 

IF X(Z) = d THEN GOTO 358 


PRINT АТ Y(2), Х(2) + 4;"inverse space" 
g 

IF X(Z) - U THEN LET S=(X(Z) - U)/ABS(X(Z) - U) 
g 


IF Ү(2) V THEN LET T = (Y(2) - v)/a8s(v(z) - v) 
LET 133 = 0 - 5 
LET Y(2) = Y 


PRINT AT Y(2), Х(7) + 4; 

LET АЯ = CHR PEEK( PEEK 16398 + 256*PEEK 16399) 
IF АЯ = "graphic H" THEN LET Х(2) = d 

IF АА = "inverse A" THEN GOTO 370 

IF X(Z) THEN PRINT "inverse asterisk" 

NEXT Z 

GOTO 13d 


PRINT AT Y, X + 4; "азёегізк" 

PRINT AT Y, X * 4;"inverse asterisk" 

GOTO 370 

LET X = ЛИ + SGN(RNO - .5)* INT(RND*(Z/3 AND 
7<›42) + 1) 

IF X < 1 OR x > 28 THEN GOTO 1ggg 
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1928 LET Y = 18 + SGN(RND - .5)*INT(RNO*(2/3 AND 


Z <>42) + 1) 


1938 IF Y < 1 OR Y > 28 THEN GOTO 10260 
1848 PRINT AT Y, X + 4; CHR A 
195@ RETURN 


BIO-RHYTHMS 


The ‘science’ of bio-rhythms is based on the belief that each of us in the throes of 
three cycles which start at the moment of birth and continue until death. 


PHYSICAL: The 23-day physical cycle relates to endurance, aggressiveness and 
physical strength, 

EMOTIONAL: The 28-day emotional cycle governs emotions, optimism/ 
pessimism, frustration, temper and moodiness. 

MENTAL: 


The 33-day mental rhythm is related to logic, reasoning, ease of 
expression and common sense. 


This program takes your date of birth, then the date of the day which interests you, 
and works out the ‘worst point’ on each of the three cycles in relation to the day you 
have nominated. 


250% 


CELO e d 
B-3»z0 THEN LET T=2 


Tz2 THEN LET B-B«1 
Теа 25 15 GOTO ао 


НЕМ 
=2 THEN GOTO 150 
Р=@ OR D.;2-F THEN PRINT 


F=@ OR D^2-F THEN RETURN 


H=D 723 -F 
BEREIT ee ";H;" DAYS" 


LET Y=" THE генет DAY IS " 
БЕЕ xaa ото 


PRINT "ENTER YEAR OF BIRTH 
тя 
KE "NUMBER OF BIRTH MONT 
B 
PRINT “DAY OF BIRTH (AS 3e) 
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298 INPUT C 
CLS 
310 GOSUB зо 


ЕТ «-Е 
330 PRINT "NOU. TO FIND YOUR EI 
Q-RHYTHH","FOR A SET DRY. ENTER 


PRINT “DATE THAT INTERESTS 


350 PRINT 

360 PRINT “YEAR (RS 19609137" 
370 INPUT A 

375 LET Z-h 

5H NEAR в«1900 OR R»1999 THEN СС 


390 PRINT “MONTH (AS 1117" 
400 INPUT Б 
405 LET Q-B 
410 спат “DAY (AS 2437" 
420 INP С 
421 GÜSUB вове 
422 LET P-C 
425 GOSUB 38 
430 s 
zE-dJ 
450 Ec А "BIO-RHYTHM FOR ",P;" 
452" IF z-1900«10 THEN PRINT "OG" 


“455 PRINT Z-19e0 
460 PRINT 


D-23 
490 PRINT “PHYSICAL"; X$ 
S@@ PRINT Y$ 

зле GOSum 110 

528 PRINT 

өзе LET D-28 

540 PRINT "EMOTIONRL";X$ 
550 PRINT Y$ 

560 GOSUB 110 

570 PRINT 

550 LET D-33 

590 PRINT vo ы 


610 GOSUB 110 
630 PRINT "ENTER Y FOR ANOTHER 
DA 
640 INPUT 0% 
CLS 
650 IF UG="Y" THEN GOTO 33e 


LS 
8010 FOR Т=1 TO 96 
8015 PRINT " B: 


8050 RETURN 
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SWARM 


In this short 'arcade' game, you are piloting a ship in outer space, when suddenly you 
are caught up in an asteroid swarm. You must pilot your ship between the asteroids 
(which, in this case, look somewhat like asterisks). 


There is no scoring mechanism in the first version of this game, and the ZX81 will 
not know when you've hit an asteroid. As you'll see later, scoring and/or detection 
programming slow things down. 


The “7” key will move you to the left, the “М” to the right. Once you've played it, 
and before you read the listing of the second version, you might like to try to add a 
'detection routine'. The program, as given, runs in 1K. 


12 LET R=18 
20 LET В=15 
за LET С-гӨ 


48 PRINT AT C,RND£x30,"x" 

Бе PRINT AT ^h,B;" us 

ео SCROLL 

70 IF INKEYS="Z" THEN LET PaB- 


зе IF INKEYSS"N" THEN LET Майлз 


1 
9@ PRINT AT R.B; "й" 
1@@ GOTO 48 


The whole secret of this program lies in the use of SCROLL. Your ship (printed in 


line 99, and ‘unprinted’ т line 50) stands still in the middle of the screen, while the 
stars rush on by. 


If you don’t want to add a detection routine, you might like to add a little bit which 
will stop your ship going off the sides of the screen (and possibly generating a “В” 
error). You'll need two lines and they should be between the present lines 80 and 99. 
If you're not sure how to do this, have a look at lines 249 to 270 in GEIGER. 


STAR-BURST 


SWARM 11, which we've called STAR-BURST, still fits within 1K, although it 
includes (a) a routine to detect when you hit something; (b) a routine to stop the 
ship going off the side of the screen; and (c) a scoring mechanism. 


The key “M” is your only control. Leave your finger off this and the ship drifts left. 
Pressing “М” moves it to the right. The program stops if you hit a ‘star’ and the star 
turns into your score. Anything over 309 is good. Let us know your top score (no 
cheating, please) and we'll mention the grand champs in the next edition of this book. 


за LET F-PI-PI 
2@ LET A=VAL "18" 
30 LET B=VAL "is" 
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ча LET C=R+A 

58 PRINT AT С, RNO +30, TF 

вә PRINT AT а,в; 

70 LET F=F+PIZPT 

аа SCROLL 

аа IF Бэг THEN LET Е-Е- 

4100 IF INKEYS="M" AND Bia THEN 
LET B=6+2 

110 PRINT AT A.B; “U” 

286 PRINT AT ii, б; 

їз ТР РЕЕК (PEEK звзаа:- РАБзРЕЕ 
K TEER THEN GOTO бе 

140 PRINT F 


Your score is clocked up on the variable F. Line 90 stops the ship from falling off the 
left hand end of the world, and moves it step by step left if there is room. Line 100 
waits for your touch on the “M” key, and if you're not too close to the right hand 
edge of the screen, moves you right. 


The complicated-looking line 130 looks up the PRINT position (set by the previous 
line) in the display file. 


If it does not find a character 23 there (i.e. a star), it sends the action back to line 50 
for another round. If, however, you've hit a star, the program rolls on to line 140 to 
give you your score. 


SWARM-STORM 


The final version is the above program, more or less, with inverse graphics. You'll 
notice, because of the need to constantly reprint a strip of black across the bottom 
of the screen, it runs more slowly than either of the two previous versions. 


5 ВЕН COO ES MORE THAN IK 


„Внраза; "EM 
ыы 7 


150 SCROLL 


169 PRINT AT С.В: а 


170 IF B»4 THEN LET 65=6-1-INT í 
RND? 
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18е IF INKEY$4-"M" AND B<26 THEN 
LET 6=6+34RN й 
ea PRINT AT ЗВ 

> > 
210 IF PEEK (PEEK 16398H25B4PEE 
қ 16399) ‹>151 THEN GOTO 120 
250 PRINT "*";F;"x" 


RACER 


The same idea can produce a very effective game in which you have to drive your 
racing car (an inverse V) over a randomly twisting and turning track. Once you've 
run it, you're sure to think of many other effective ways to capitalise on the SCROLL 
function. Although the mechanism of RACER and the SWARM series is very similar, 
this 1K game looks very different from the SWARMs. 


After you first press NEWLINE, wait until the track 'comes up' to meet your саг. You 
have to keep your car within the solid black borders. When you're more experienced, 
reduce the width of the road (line 60). 


30 LET B= 

4@ LET C=A+A 

58 LET D-& 

ва PRINT HT C,Db;" 
70 PRINT AT 3,5; "ЦМ 
ва SCROLL 

9@ IF INHEYS-"MH" THEN LET ВЛЕВА 


ае IF INKEY $="2" THEN LET В-&- 


118 PRINT HT а.в; “8° 
128 IF D»17 OR D:7 THEN LET K=- 


13а LET D=D+RND K 
1480 GOTO ба 


As іп SWARM, you control your vehicle by use of “Z” and "M", "Z" moving you 
left, and "M" moving you to the right. If you hit the side of the track, the black 
border at that point will disappear. 


- 


Line 130 moves the track randomly from side to side, and line 120 makes it start 
moving back towards the middle if it gets too near either edge of the screen. 


Line 70 "unprints" the car which is printed in line 119. There is no reason why your 
car should be an inverse V, so change it to the initial of your first name, or whatever 
you like. М you “unprint” with a graphic H, instead of a graphic A, you'll see the 
car leaves a trail behind on the track to show where you have driven. 


The car starts off at 10, 10 (A, B) and INKEYS (lines 90 and 109) alter the value of 
B (your position to the right or left of the screen). As in SWARM, your up and down 
position (A) does not change, but the SCROLL (line 80) sends the scenery dashing 
past you. 
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RACER 2 


RACER-TWO puts you back on the road with a handicap. If you hit the sides, the 


whole thing stops. This version fits within 1K. 


IF ІМКЕУ%-"2” THEN LET BzB- 
IF INKEYS$="M" THEN LET RzR-« 
PRINT ат а,в; m" 

ІР D«17 THEN’ LET D =2 +8 +В МГ 
SE NY AL Ek: LET D=0-23.RANM 


11.8; 
PEEK (PEÉK 156320B4PEEK зА 


139 IF 
3992256} =128 THEN STOP 


148 


GOTO 59 
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: RACER-THREE features a new hazard — other cars оп 
the road, travelling in the opposite direction. I 


22 LET Бев-Був 
=B- 
5а PRINT AT C.D; “п | AY я 


БӘ IF RND:.6 THEN GOTO зае 
70 PRINT AT C,.D+D/D+F2RND; “Ei 


DLL 
199 СЕР B=B-  (INKEY $="2") + fINKEY 
ф="м" 


а PRINT AT A.B; "BH" 
130 TF Dieter THEN LET p=psprsAN 


150 IF DoF THEN LET D-D-PIsRND 


NT AT Я+РІ/РІ, В; 
155 LEI'L.PEEK (PEEK ibasB2PEEK 


16а 
994256) 
15а IF і-ігв ОН L=173 THEN STOF 


іза GOTO 58 


GRAFFITI 


This program takes letters as you touch them on the keyboard, and prints them in 
greatly enlarged form, seven letters across the screen, five letters down. You just 
touch the key and it appears. Press NEWLINE to get a space, and after pressing 
NEWLINE hold down the letter you wish to appear next. 


14 LET X = 1 

28 LET Y = 1 

3g IF INKEYÉ = "" THEN GOTO 3g 

40 LET L = CODE INKEYS 

45 IF L = 118 THEN LET L = d 

5g FoR 2 = g TO 3 

6g LET F = НЕЕ 22 + 88 + 7680 

70 LET б = PEEK(2*2 + 8*L + 7681 

8d LET H = 512 

9g FOR 3 = g TO 3 

18g LET H = H/4 

110 LET А = INT(2*F/H - INT(F/H)*2 

128 LET B = INT(F/H - INT(F/2/H)*2 

13d LET C = INT(2*G/H - INT(G/H)*2 

14g LET D = INT(G/H - INT(G/2/H)*2 

154 PRINT AT X + Z, Y + 3;CHRÉ ABS(2*A + В 
- 135*C + 4*D) 

16d . NEXT 2 

170 NEXT 2 

18g LET Y = Y + 4 

190 IF Y < 29 THEN GOTO ЗИ 

288 LET X= X + á 

21g LET Y = р 

228 GOTO 3g 
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You can bring this program to a halt with the BREAK key. 


NEW ROM; You can get this program to work on the new ROM (and in the FAST 
mode on a ZX81) by adding the following: 


3g PAUSE 32768 (This takes the place of the line 
| 3@ above) 
35 РОКЕ 16437, 255 


^ 
ew 


MICRO-MOUSE “< 


This program is fascinating to watch, and makes a good demonstration of the ZX81. 
A 'mouse' (an inverse asterisk) starts off in a random position somewhere near the 
top left hand corner of the screen. It is aiming for the bottom right hand corner. There 
is a solid black ‘frame’ on the screen, and a number of obstacles are placed randomly 
within the frame. When the mouse finally makes it to the end, the number of moves 
it took is shown. 


The obstacles change position, the mouse flashes off and on a few times, and then 
begins again. 


The mouse cannot get itself into a trap it cannot get out of, unless it happens to land 
in one at the very beginning, so have patience, no matter how long it seems to be 
taking. 


1 РЕМ MICROMOUSE 16K 
S LET G=16396 
6 LET Н=6+1 


10 PRINT AT а: ЕЕ 


SIESTA phe ew dil. |l: Saul ge PED 


зза 
зе FO Я=2 TO го 
35 PRINT HT 2«RND£€18,.1-*RNDx27; 


36 PRINT AT 2«RND£*18.14RND£€27. 
37 PRINT AT 24+RND#16.1L+RND#27. 


42 PRINT AT пе; "Ш" 
43 PRINT AT S*RNDE15,24RND£22; 


44 PRINT AT 2+RNDF16,1+RND#27; 
45 PRINT RT 24+RND#18.2+RND #24, 


.. 


.. 
ee 


64 


w^ PRINT RT. S4RNDx15,24RND35 
j PRINT RT 2tRND 226,241 


PRINT AT B.31: M ^ 
PRINT BT ШР; LB. BRI 


60 NEXT ñ 
61 FOR z5 79 áo 


ae 


ББ PRINT HT 20.350; 18 0-0 
67 PRINT HT 80.30;:" " 
NEXT Z ` 
70 ЕТ. dear (RND $841) 
= 
58 LET. B-INT (RNDE1511). 
85 PRINT AT 290.30; “ 
98 LET Е=Я 
5 LET © 9=0+1 
101 IF n-28 AND B-30- THEN 


ea 

105 LET T o 

108 IF RND> 247 THEN GOTO 120 | 
LET Y-INT (RND&7)41 . 


тӘ іс 


IF Т=1 TH 
198 IF RNB < 6 
200 PRINT AT ae 


210 IF PEEK (PEEK С+256*РЕЕК На 
=@ THEN LET Tei 

220 IF Т-1 THEN LET Ва 

230 IF T-1 THEN LET B=B+1 

240 IF Т=1 THEN GOTO 1000 

245 IF RND(t.2 TREN GOTD 2321р 

256 PRINT AT Я-1,6; 

260 IF PEEK (PEER бао5БЕРЕЕК H5 
=@ THEN EET T=1 

278 IF ші AND A>@ THEN LET Өте 


280 IF T= тат RBS 3419 1000 


=i 
318 IF T=1 AND B>@ THEN LET В-Б 


320 IF Т-і THEN GOTO 10008 
S30 IF B=@ OR RsO THEN GOTO 119 


INT AT A-1,6-1; 
359 IF PEEK (PEEK G+256 PEEK эл 
H LET Tz 
360 IF Тез THEN LET я=я-3 


370 IF T-1 THEN LET B=B-1 
380 IF T=1 THEN GOTO 1ieen 


90 
2000 PRINT AT 9. E "B": o: Б" 
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POGO 1,2 and 3 


In POGO (which runs quite happily in 1K and can be greatly elaborated if you have 
more memory) two characters of your choice trundle across the screen from right to 
left. You enter the characters as the first reaction to the program. Inverse characters 
look particularly effective. Perhaps you could input your own first initial for A$ and 
that of a friend for B$. Once you've RUN this a few times, and before you see how 
l've done it, try and rewrite the program using numeric and character arrays. 


14 INPUT AZ 

2g INPUT BZ 

3g LET А = 31 

4g LET B = A 

5g LET А = А = RND 

6g PRINT AT 7,A3 АЯ 

79 LET В = В - RND 

ag PRINT AT 14,8388 

9g PRINT AT 7,A;"." this is a full-stop) 
1094 PRINT АТ 14,В;"." and so is this) 


11g IF A> 1 AND B> 1 THEN GOTO 5g 


That's what | call a short program. Before cheating, and reading the next listing, 
rewrite POGO, using arrays, to give the same display. Once you've done this, return 
to the book, and compare your version with mine. 


It is not very difficult to do this. Here is the way | changed the program to use 
arrays. It does not matter at all whether you did the same thing or not, so long as the 
screen display using arrays is the same as it was without arrays. 


14 DIM АЯ(2) 

20 DIM А(2) 

Зӣ FOR B = 1 ТО 2 

4g INPUT АЯ(В) 

5g LET A(B) » 31 

би NEXT 8 

77 FOR B = 1 Т0 2 

8g PRINT AT 8*7,A(8);"." 
9g LET A(B) = А(В) - RND 


17 PRINT AT В*7,А(В);АЯ(В) 
11g NEXT 8 
120 IF А(1) > 1 AND A(2) У 1 THEN GOTO 70 


This gives a display which is virtually identical to the first version. It has one great 
advantage — flexibility. If we wish to extend it so more than two objects POGO 
across the screen, we need to make very few changes. Altering the first version would 
be much more difficult. Enter the following program (or alter your own) to have four 
little POGO-ists. 


10 01М АЯ(4) 
20 DIM A(4) 
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3g FOR B = 1 ТО 4 


4g INPUT A%(B) 

5g LET A(B) = 31 

би МЕХТ В 

76 FOR B = 1 ТО 4 

8g PRINT AT B*4,A(8);".," 
9g LET А(В) = A(B) - RNO 


1094 PRINT AT 8*4,A(8);AZ2(B) 

118 МЕХТ В 

128 IF А(1) ? 1 AND А(2) > 1 AND A(3) > 1 
АМО A(4) 2 1 THEN сата 79 


For our final version, change the fours in the above program to eights (except the 
PRINT ATs, which should be changed to PRINT AT 2*B,A(B);), and change line 
120 to a simple СОТО 70. 


RUN this, and you'll see a ripple pass down the POGO-ists as they move along. But, 
there is something new. When they reach the left hand side of the screen, instead of 
stopping as they have done with the previous versions, they'll start racing back along 
the lines of full-stops. 


The program will stop when one of the characters -- ‘the winner’ -- actually leaps off 
the screen. 


WORD-PROCESSOR (USING 
THE PRINTER) 


This program allows you to couple your ZX printer with your ZX81 and to use it, 
more or less, as a word-processor. It automatically justifies the right hand margin 
when a line is over-filled, allows you to start a new paragraph at will, alter text or 
signal the end of text. If the screen is full, the program automatically turns on the 
printer and once the full screen has been printed, clears the screen waiting for your 
next piece of text. 


If you do not yet have a printer, you will still enjoy running this program (watching 
it justify is very interesting) and a couple of lines can be added to demonstrate that 
the printer is working (or would be if you had one). 


{- Raim Word Pro u 


3 тасы 

5 DIM 5132) 

ла LET Cg="" 

20 LET L=9 

30 PRINT AT L.06;c5 

аа INPUT БФ 

5 IF 6¢="." THEN GoTo 275 
БО ТЕ B&-".-" THEN GOTO 3368 
70 IF B&="@" THEN СОТО 368 
75 IF Bé="S" THEN STOP 

за LET O$-Cu:BS"U 7 
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90 IF LEN cx as aoe Бото ча 
91 FOR I-32 STEP -1 


92 IF CSLI? « * THEN NEXT I 
108 LET Asiiéii TO I-1:-4" 
"rid T 
o 32) 
110 LET tia TUI TO 1 
129 LET =@ 


130 FOR 729 TO 32 

140 IF аз <>" " THEN сота 17а 
150 LET =х+1 

158 EY 5565: 

170 МЕХ 

18@ IF ТҮСТЕГІ " THEN GOTO за 


185 PRINT AT L.@: AS 
190 LET A=INT (RND £X +1 
195 IF $StRH)»32 THEN бето 198 
200 FOR I=32 ТО SA? +1 STEP -1 
210 LET RH$iI)-sH$(0(I-i) 

NEXT I 


23@ FOR I=A TO X 
240 LET БЕТ) =5 (СТ) +1 


=L + 
290 IF L=21 THEN вото зза 
300 LET = +1 
338 IF L-21 THEN GOTO за 
338 copy 


If you do not yet have a ZX printer, delete 330 and add the next two lines. If you do 
have a printer, leave 330 as it was (i.e. COPY) and ignore 331. 


NON-PRINTER DEMONSTRATION LINES 


зза PRINT AT а.а; "ERR 
331 INPUT I$ 


Back to the ‘real’ program: 


зае CLS 

350 GOTO 10 

360 LET х-о 

370 LET Үс 

эво GOSUB 10900 

408 IF INKEYS="" THEN GOTO зао 
410 LET R=CDDE INKEYSs 

415 IF A=118 THEN LET я-а 

428 IF A<64 OR A212? THEN GOTO 


425 GOSUB 2592 


430 IF A=1 THEN LET Y=Y-1 
440 IF Я=115 THEN LET У=Уу+1 
45€ IF Я=114 THEN LET х-у-4 
460 IF Я=115 THEN LET Х=х+1 


ез 


470 IF A-121 THEN GOSUB ippa 
430 IF A=121 THEN GOTO за 
4980 GOTO 398 

S500 PRINT AT Y.X; CHRS Я 

510 LET X=X+1 

S20 IF X<3e THEN GOTO 5528 


559 GOSUB 1000 

S560 GOTO 3989 

зева PRINT DT у,х; 

1010 LET W=PEEK (PEEK 16390842565 
PEEK 16399) +128 

10830 IF U»255 THEN LET U-UuU-256 
18040 PRINT CHR$ N 

19050 RETURN 


With this program you enter your text, and the spacing is adjusted so that each line 
takes up 32 characters. If the screen fills up the text is automatically COPYed via 
the printer and the screen cleared so you can continue with more text. 


Special inputs are: 


“ 


means end of paragraph 
"|" means end of text 
"('" means alter text on screen. 


NEWLINE equals a space, and after altering text, shift N/L allows you to add more 
text. 


When you need to alter text, after entering the 0, you wili see the first letter of your 
text inverted. Using keys 5, 6, 7 and 8 (and just by holding it down) the inverse blob 
will move in the direction of the arrows on the keys. When you come to the letter 
you wish to change, just input the desired letter. 


ECHO CHAMBER 


You'll never win this one. The ZX81 generates a constantly growing number (up to 
30 digits long), digit by digit, and you must repeat it, after only seeing it for a very 
short time. 


Note that this program makes use (in subroutine 1000 to 1020) of the function STRS 
which changes a numerical variable into a string. The subroutine also shows 
concatenation (the adding of strings) in action. 


5 FAST 
109 LET АЯ = "" 

28 LET A =й 

3Ø PRINT AT 10, U;"OK, HERE IS TEST NUMBER * ";A + 1 
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48 PAUSE 14% 

5g CLS 

og GOSUB 14gg 

78 PRINT AT 10, И;"УОЦ HAVE TO REMEMBER" 

8g PRINT AT 11, 31 - ААЖ 

9g PAUSE ЗИ + 5*A 

1ЙЙ CLS 

118 PRINT AT 1g, @3"0K, WHAT WAS THE NUMBER?" 

120 INPUT BY | 

125 CLS 

138 ІР ВЯ = АХ THEN PRINT AT ЛИ, g;"YOURE RIGHT, 
STAND BY" 

14g IF ВИ = АХ AND A = 31 THEN GOTO 21d 

145 IF Bá <> АХ THEN СОТО 18g 

15g PAUSE ТИИ 


188 PRINT AT 10, И;" SORRY, YOU ARE WRONG" 

198 PRINT AT 11, 0; "МҮ NUMBER WAS * "sag 

200 PRINT AT 12, Q;"YOUR NUMBER WAS ж "Ви 

218 PRINT AT 13, Џј"уби SCORED * "33% 

228 PRINT AT 15, #; "00 YOU WANT TO PLAY AGAIN?" 


248 CLS 

258 IF CODE(CÁ) = COUE("Y") THEN RUN 
260 FOR J = 1 TO 22 

278 PRINT AT J, 8;"OK, BYE BYE" 

284 PAUSE 7 

298 NEXT 2 

зии CLS 

319 — STOP 


ЛИМИ LET АЯ = АХ + STRÉ( INT(RND*9)) 
141g LET А = A + 1 
1924 RETURN 


Note the use of CODE in line 250 to check the player's answer. This allows the 


D ES input YEAH, YESSIR or even YAY BABY and the ZX81 will still interpret 
it as ; 


MIRROR, MIRROR 


MIRROR, MIRROR is similar to ECHO CHAMBER except that instead of a 
constantly growing number to recall, this 1K program gives you a series of five-digit 
numbers. 


The time you have to look at each number gets shorter as the game progresses, and 
the time you have to relax between each new number gets shorter and shorter. In 
BACK-STABBER, there are two routines (lines 20 to 50 and lines 230 to 260) which 
place flashing words on the screen between each round of the game. MIRROR, 
MIRROR uses a similar idea (lines 109 to 130) for the ‘resting time’ between 
subsequent memory tests, and it is this routine which runs for a slightly shorter time 
each go. 


T1 


You get a score (line 170) which is seven times the number of correct answers you 
gave. 


Have a look at line 160. This uses TAB within a line to PRINT the line on two lines, 
in a specified position. Your ZX81 manual explains this on page 115. 


10 LET A=- 
20 LET B=INT (RND 20000) завера 
38 LET Н=Я+1 

ча PRINT RT даб: TEST “A.B 
а FOR Нај TO 46-227 

SS NEXT N 

ќа Cis 

та INPUT C 

аа IF B:oc THEM GoTo ics 
за PRINT HT i28,6;C." IS 


108 FOR Б-4 TO 25-9 


112 PRINT AT 5,9; ЕВИ эу. 

128 PRINT АТ 5.9; “STAND T 

1386 NEXT D 

1406 CLS 

ізе GOTO га 

i68 PRINT AT 10,5; NO MINE HAS 
"iB; TAB 7;" YOURS WAS іс 

178 PRINT " YOUR MEMORY RATING 


Here is a longer version of the game 


14 LET В = 49 

20 FOR А = 1 TO 10 

3g SLOU 

4g PRINT AT 5,8;"TRIAL NUMBER * ";A 

50 PRINT АТ 8, 65 "HERE IS YOUR NUMBER" 

6g LET C = 10000 + INT(RND*9gZgg) 

70 PRINT АТ 10,4; "THE NUMBER YOU HAVE TO" 
8g PRINT АТ 12,7;"REMEMBER IS * ";C 

90 PRINT АТ 14,12; "CONCENTRATE 


1gg FORE = 1 TO B - 3*A 

118 NEXT E 

115 CLS 

120 PRINT АТ 10,4; "ОК, WHAT WAS THE NUMBER?" 
134 INPUT О 

148 CLS 

15d IFD <> C THEN GOTO 280 
16g PRINT АТ 17,8;"UELL DONE" 
178 FOR С = 1 TO B - 3*A 

180 PRINT АТ 15,8;" STAND BY" 
190 PRINT АТ 15,8; "5ТАМО BY" 
200 NEXT C 

205 CLS 

218 МЕХТ А 
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220 PRINT АТ 8,0; "YOU REMEMBERED ALL 1g" 
230 PRINT "NUMBERS, 50 YOU GET" 

240 PRINT "ANOTHER GAME" 

258 FOR E = 1 TO 198 

255 МЕХТ Е 

26g CLS 

270 RUN 

280 PRINT АТ 6,4;"SORRY, YOU ARE WRONG" 
298 PRINT АТ 8,4; "МҮ NUMBER WAS * "5C 

309 PRINT АТ 14,4;"YOUR NUMBER WAS * ";D 
31g PRINT AT 12,4;"YOU GOT * ";n; * RIGHT" 


— — NOISE 


NICOMACHUS 


Nicomachus, so we are told, was a mathematician and author, who wrote a spell- 
binding book Arithmetica around the year 100. In it is the mathematical puzzle used 
in the program. You think of a number between one and 100, and divide it 
successively by 3, 5 and 7, entering the remainder after each division. Line 80 then 
reconstructs your number from this information. 


1d PRINT "THINK OF A NUMBER (1 TO 1gg)" 
20 PRINT "/3" 

ag INPUT Z 

4g PRINT "/5" 

5g INPUT P 

6g PRINT "/7" 

79 INPUT 0 

8g LET M = 7@*7 + 21*р + 15*Q 

9g FOR К = 1 TO 6 


1gg ТЕМ > 195 THEN LET М = M - 195 
11g NEXT K 
12g PRINT M 
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RANDOM NUMBERS 


The random number generated by the RND function on your 2Х81 is not truly 
random, although it is close enough for most purposes. The computer actually uses 
a long list of numbers, so long it appears random. The RAND function sets the start 
of the long list to a number related to the number of frames your TV has scanned 
since you turned it on. RAND n (where n is a number) sets the numbers to a position 
which is related to n. If you had RAND 7, for example, at the start of a program 
which used random numbers, it would generate exactly the same set of numbers 
every time you ran the programs. There are several algorithms which generate random 
numbers, and you might like to incorporate them into programs. They need to be 
‘seeded’ (and this is why they both ask ‘MINUTES PAST THE HOUR?" to get the 
seed). There is no reason why you cannot use the ZX81's random number generator 
to seed these algorithms by deleting the question, and changing the INPUT line to 
LET А = RND in the first program, and LET X = RND in the second. 


1g SLOU 

28 PRINT "MINUTES PAST THE HOUR?" 
3g INPUT A 

4g LET B = A/2 

5g FOR J = 1 TO 13 

6g LET В = ABS(439147 + A + B) 

74 LET C = EXP В + 1 

8g LET D = 23*8 

9g LET B = INT(D - INT(D/C)*C) 
188 NEXT 2 


11g PRINT В 
128 GOTO 5g 


This program generates numbers by the congruence method, using the equation: 


23x4 8 
* = - i 
x 1 23x. int( ) X (14^ + 1) 


149 + 1 


The second program is more flexible, in that it can easily be set to genérate numbers 
in a desired range (the first program can be adjusted to do this, but it is more 
complex). This second program has been written here to simulate a single die, that is, 
it will generate numbers from one to six. Change the figure in brackets in line 70 to 
change the maximum number generated. 


1g PRINT "MINUTES PAST THE HOUR?" 


2g INPUT X 

3g LET D = 6 

4g FOR 3 = 1 тор 

5g LET X = (X + PI)**5 
би LET X = X - po 

76 LET D = INT( X*6 ) +1 


ви NEXT 2 
9g PRINT D 
198 СОТО 4g 
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The next program draws a bar graph of the numbers generated by the RND function. 
RUN it a few times as listed, then add 10 RAND 6 to see the effect this has. 


2d FOR A 1 ТО 2g 

3d LET 8 INT(RND*2g8) + 1 

4g IF B < ІШ THEN PRINT " * "j 
5g PRINT 8;" * и; 

6g FOR С = 1 TO B 

70 PRINT "inverse > "; 

ag NEXT C 

9d PRINT 

ТИИ NEXT А 


if you'd like to slow the printing down a little, add: 


75 LET K = RNO*RND 


This is a useful technique to remember if you wish to slow a program down. A second 
way, which needs two lines, is to add a loop, such as the following: 


+S FOR N = 1 TO 298 
77 МЕХТ М 


The RND function is used in many games to simulate the roll of a die. If it is working 
correctly, it should (like a proper die) produce each number between one and six an 
equal number of times. More realistically, the more you 'roll' the die, the closer the 
distribution of each number between one and six should be the same. 


This next program rolls a die as many times as you desire, and clocks up the totals 
for you as it runs. When you RUN the program, a number prompt will appear. This is 
the number of times you want the die to be rolled. 


As the program progresses, it will show you the result of the current throw (under 
the flashing black square) and the number of the throw. Below it you'll see a table 
being built up, which counts how many times each number appears. 


If you wish to try it for a large number such as 100, run it in FAST. New ROM 
machines will need the addition of 105 PAUSE 50. New ROM owners should delete 
line 50. 


The program is fairly slow, because of the quantity it prints each time through the 
loop. If you wish to test a very large number, like 5000, remove line 30 and renumber 
it as 120. 


Delete lines 80 to 100 and make these 130 to 150. Delete lines 50 and 70 completely. 
Run it in FAST. 


75 


DICE ROLLS 


10 INPUT D 

20 DIM A(6) 

3g PRINT АТ 1g,4;"1 * X X 2 X X X 3 X X X 4 * x x 
5 хх * би 

4g FOR C = Т To D 

50 PRINT АТ 3, 19; "inverse Ж" 

би LET А = INT(RND*6) + 1 

7@ PRINT АТ 3, 10;A,C 

75 LET A(A) = А(А) + 1 

ви FOR В = 1 TO 6 

9g PRINT AT 12, 4*8jA(B) 

198 NEXT B 

114 NEXT C 


Тһе rigxt program, based on the one just listed, is somewhat more interesting. Whereas 
the chance of a single die falling with any face from one tó six showing is, in theory, 
one in six, the probability of certain totals being generated by adding the pips on 
two dice varies with the total being considered. That is, while there is only one way to 
get a total of 2 (1 plus 1), you can get a total of 4 by rolling 2 plus 2, 1 plus 3, or 3 
plus 1, There are six ways you can roll a 7. 


So, this program simulates the rolling of two dice. Once you've seen it in action a 
few times, and you understand what is happening, add a routine to give each total as a 
percentage of the number of throws. If all is well, your percentages should appraoch 


the theoretical distribution: 


TOTAL NO. OF WAYS 
SHOWING IT CAN BE 
THROWN 
2 1 
3 2 
4 3 
5 4 
6 5 
7 6 
8 5 
9 4 
10 3 
11 2 
12 1 
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1/36 
2/36, 
3/36, 
4/36, 
5/36 
6/36, 
5/36 
4/36, 
3/36, 
2/36, 
1/36 


PROBABILITY 


1/18 
1/2 
1/9 


1/6 


1/9 


142 
1/18 


PERCENTAGE 


2.7796 
5.55% 
8.33% 
11.11% 
13.88% 
16.66% 
13.88% 
11.11% 
8.33% 
5.55% 
2.77% 


In the following program, line 100 ensures that an already very slow program does 
not become any slower by printing again figures which do not need to be changed. 


17 INPUT 0 (this is the number of times you uish 
ги ОТМ А(12) to roll the tuo dice) 

20 FOR C = 1 TO D 

4g LET A1 = bees +1 

5g LET A2 = INT(RND*6) + 1 

би PRINT АТ 3,2;"inverse space 5 spaces ";A1, A2 

78 PRINT АТ 3,2;C;" 5 spaces";A1, А2 

8g LET АЗ = A1 + A2 

9g LET A(A3) = A(A3) + 1 


102 FOR В = 2 TO АЗ 

110 PRINT АТ В + 3, 5, "graphic Н" (note the comma, 
rather than a 
semi-colon) 

128 PRINT AT В + 3,538, A(8) 

13g NEXT 8 

140 NEXT C 


Now that we've spent a bit of time emulating dice with the random number generator, 
| think we should use this in a few programs. 


CHUCK-A-LUCK 


The first one we'll look at is called CHUCK-A-LUCK. In its first incarnation, in 
England, it had the most improbable name of Sweat-Cloth, and when exported to 
the United States in the early years of the 19th century, it became known first as 
Sweat. It name changed through the years to Chucker-Luck, Chuck-Luck, Chuck-a- 
Luck or just plain Chuck. Nowadays, because of the equipment used in the non-ZX81 
version, the game is often called The Bird Cage. 


The bird cage is an enclosed wire cage holding three dice. Players bet on the likelihood 
of a particular number coming up. If, for example, they place their money on six, 
and one of the three dice ends up with a six showing, they get their money back. If 
all three dice show six, then they get three times their money. A fairly simple game, 
but one which arouses passion among bird cage devotees. 


This program does most of the work for you. When it first asks SIZE OF BET? you 
enter the number of pounds and pence you wish to bet. At all times you know how 
much money you have left (you start with £30) and you can bet up to the total you 
have. You automatically lose this amount as the game begins (so one die coming up 
with your number just returns your money, you need two or three to show a profit). 
Your next prompt will be NUMBER? and here the computer just wants you to enter 
a number between one and six. The game explains itself as the program progresses. 


1g LET М = ЗИ 
M is your starting stake, and M your running cash total 


2@ GOSUB 280 
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Subroutine 289 prints your money on the screen, and incorporates a delay loop (290 
and 300) which is accessed separately at one point (line 229). 


3g PRINT AT 6,8;"SIZE OF BET? ж"; 
48 ТМРИТ А 

50 IF A > M THEN GOTO 40 

68 PRINT "£";A 

74 LETM2M-A 

ва PRINT АТ 10,8; "NUMBER? ж"; 

9g INPUT B 

104 PRINT В 

110 IF B < 1 0R B > 6 THEN GOTO 8g 


The next section rolls the dice, changing your stake as it does so if you win. 


128 FOR C 
13g LET ш 


1 TO 3 
g 


"и 


W is the win/loss Над and paymaster 


149 GOSUB 29g 

150 LET D = INT(RND*6 "t : " 

16g PRINT AT 11 + 2*C, g;" DIE * ";CHRÉ(C + 156); 
э * FELL * ";CHRÉ (B + 156) 

179 IF D = B THEN LET U = A 

180 IF D = В THEN PRINT ,"UIN Е"; Ш 

199 LETM=M+ U 


The subroutine changes the total if you have won 


200 GOSUB 280 
21g NEXT C 


There is a short delay before the game continues 


220 60508 290 
230 CLS 


If you have money, action moves back to line 20 
240 IF m? Ø THEN GOTO 2g 


If you are broke, woe... 


250 PRINT АТ 10,3; "САМЕ OVER, YOU ARE BROKE" 
260 PRINT АТ 10,3; "САМЕ OVER, YOU ARE BROKE" 
278 GOTO 25g 


This is the tally-changer and delay subroutine 
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280 PRINT AT 2, 12; "5ТАКЕ &";М; "ж ж" 


298 FOR N = 1 TO 59 
300 NEXT N 
310 RETURN 


SEVENTH HEAVEN 


In its youth as a dice game, this was known as UNDER AND OVER 7. It seems very 
attractive to gamblers, because it appears loaded in the player's favour. As you'll 
discover when you play it with ‘money’ which only exists in the ZX81's variables 
store, the game is loaded against the player. If the random number generator worked 
perfectly, and you played this game for ever, your losses would outweigh your gains 
by 16 2/396. Now you've been warned, we'll move into SEVENTH HEAVEN. 


Once again, we've used M to represent your money. 
28 LET M = 3g 


And once again, we have a subroutine to print out your growing (?) total 
3g GOSUB 320 


The next section asks you to place your bet on one of the three possibilities: the dice 
will land with a total under 7 (A); equal to 7 (B); or over 7 (C). You indicate your 
choice by entering either A, B or C. 


4g PRINT AT 4,3;"PLACE YOUR BET" 
5g PRINT АТ 17,0;"(A) * UNDER 7 * * * (B) * 7 
x * (С) * OVER 7" ub xi 


The next line explains your winnings — money back (A or C) or 4 to 1 (B, written as 
5 for 1 to look as if you are getting тоге . . . sneaky) 


6g PRINT AT 11,5;"EVEN ж ж * 5 * FOR * 1 * ж x 
EVEN" Е 
79 INPUT AS 


If you wish to stop the game, enter #5" 


8g IF АЯ = "S" THEN STOP 


Now, you enter the amount of your bet 


90 PRINT АТ 16,18; "AMOUNT?" 

100 INPUT A 

11g IF A< 1 ORA > 6 THEN GOTO 1gg 
120 PRINT АТ 16,195" * ж Ok ж И; д 
13g LET В = INT(RNO*6) + 1 

14g PRINT AT 13,3;В;ТАВ 1g; 
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154 LET C = INT(RNO*6) + 1 
160 PRINT C; TAB 6; 

170 LET D=C +8 

180 PRINT D 


This section of the program works out how well, or otherwise, you have done 


190 IF D = 7 AND AZ = "B" THEN LET Џ = 4*A 

200 IF D < 7 AND AZ = "A" THEN LET U = A 

218 IF D> 7 АМ АЯ = "C" THEN LET U = А 

228 IF ((АЯ = "A" OR АЯ = "C") AND D = 7) OR 
(АЯ = "B" АМО D <? 7) THEN LET U = -A 

23g LET M = M + U 

240 IF U > Ø THEN PRINT АТ 16,4;"YOU UIN £";U 

258 IF W < Ø THEN PRINT AT 16,4;"YOU LOSE £"; - U 

26g GOSUB 320 

278 FOR N= 1 TO 6g 

28g NEXT N 

290 IF М < 1 THEN STOP 

за CLS 

31d GOTO 3d 

320 PRINT АТ 2,12; "5ТАКЕ £";m;" * * " 

33g RETURN mc 


DICE-JACK 


DICE-JACK is a 1K dice version of Blackjack. You take it in turns to roll a single 
die, adding the score, and trying to get a total as close as possible to (or equal to) 21, 
but not more than 21. If either you or the computer wins, you get another game. If 
you both 'bust' (that is exceed 21) or you dead-heat, the program terminates. 


The PRINT statements are very short, to get the program into 1K, so I'll explain 
what you'll be seeing on the screen. 


When you first press RUN, you'll see the prompt appear in the bottom left hand 
corner, waiting for a number input. If you enter “1”, the die will be rolled, and its 
total added to your score. When you're happy with your score, and you want to 
"stand", that is, stay on that score, you enter a 2 and the computer starts to roll. 
Your total is the top number, the computer's total is the lower number. 


Lines 260 to 280 are just a loop to slow the game down. It is the human's total 
in each game, and C (naturally enough) is the computer's. Line 90 is the most 
important one in the game. This is the line which holds all the computer's strategy 
and therefore is the line which allows the ZX81 to decide whether to stand or roll 


again. 


Lines 170 to 190 work out who has won the game. 
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If you have more than 1K, you should dress up the program to include instructions, 
and proper player prompts. 


14 LET H = É 

20 LET C = d 

3d INPUT A 

49 IF A = 2 THEN GOTO 90 

5g LET Н = H + INT(RND*6) + 1 

60 GOSUB 260 

70 PRINT AT 4,8;H 

ag GOTO 3g 

9g IF CY н AND C € 22 ов C > 21 08 H? 21 08 H = 21 
AND С = 21 THEN GOTO 149 

100 LET C = C + INT(RND*6) + 1 

110 GOSUB 260 

120 PRINT AT 8,8;С 

138 GOTO 9g 

140 PRINT AT 11,8; 

154 GOSUB 26И 

160 GOSUB 260 

178 IF H = C OR H2 21 AND СУ 21 THEN GOTO 249 

184 IF (су H OR 122, АМО C < 22 THEN PRINT "1"; 

198 IF (H > C OR C? 21) AND H < 22 THEN PRINT "YOU"; 

204 PRINT " * WIN" 

218 PAUSE 200 

220 CLS 

23g RUN 

240 PRINT "DEAD HEAT" 

25g STOP ES 

260 FOR = 1 TO 4g 

278 NEXT E 

280 RETURN 


Notice that the delay subroutine is called twice in a row (lines 150 and 160). This is 
just to give a double delay to give the impression that the ZX81 is working out who 
has won. 


Also worth noting is line 140 which saves using the same PRINT AT twice. If it was 
not used in line 140, it would have to appear in both lines 180 and 190. 


As well as adding instructions and user prompts if you have more than 1K, you 
could consider actually printing out the result of each roll of the die, as well as the 
growing total. 
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BARBUDI 


This is a simple card game, based on the dice game BARBUDI. The player draws two 
cards from a pack containing only the nines, tens, jacks, queens, kings and aces. 
Certain combinations (which you'll learn by watching the program run) are ‘wins’, 
and other combinations are ‘losses’. 


The amount you can win or lose with each hand of two cards increases as the game 
progresses. The money you win comes from the ZX81's stake (variable C, assigned in 
line 30), and the money you lose (your money is variable H, line 40) goes into the 
ZX81's stake. The game continues until either of your stakes falls below £1. 


Note that the string A$ (assigned in line 20) is not dimensioned, but single elements 
can still be extracted from the string, and used. 


w RAND 

2 LET АЯ = "9TIQKA" 

3g LET C = зр 23КА 

4g LET H = 3g 

5g LET A СИ 

6g LET A= А + 1 

70 PRINT 

8g PRINT "PRESS N/L FOR HAND * "3A 
9g LET G = g W 


As you'll see in the subroutine starting at 250, G is the win/loss flag. 


1004 INPUT ВЕ 
119 IF BÉ 2  "" THEN STOP 


Line 119 allows you to abort the program at any time by entering any character 
before pressing NEWLINE. 


129 CLS 

149 GOSUB 25g 

150 IF б = 1 THEN PRINT "YOU UIN" 
169 IF G = 2 THEN PRINT "T UIN" 


The next section hands out (or takes away) the money 


178 IF G = 1 THEN LET H = H + A/2 

. 18d IF G = 1 THEN LET C = C - A/2 
19g IF G = 2 THEN LET H = H - А/2 
200 IF б = 2 THEN LET C = С + A/2 
21Й IF CX 10RH < 1 THEN STOP 
220 PRINT 
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230 PRINT "YOU £";H, "МЕ £";C 
248 GOTO 6d 


This subroutine ‘deals’ the cards, by generating random numbers, and then extracting 
that number element from the string defined in line 20. 


25g LET D = Hed br +1 

26g LET Е = INT(RND*6) + 1 

274 PRINT АТ 3, 183" graphicE two graphic? raphicR" 

288 PRINT AT 4, 183" огарһіс5";АЯ(0);" * И; АЯ(Е) ; 
"graphic8" 

290 ¿ee exactly the same as 28g.... 

309 PRINT AT 6, 19; "огарһісы tuo graphic6 graphicQ" 

31g PRINT AT 6, 14; 

328 LET F =D + Ë 

33g IF F = 5 OR Е > 8 THEN LET G = 1 

340 If F «40RF = 7 THEN LET G x 2 


35g RETURN 


Lines 330 and 340determine which hands will lose, and which will win, The program, 
as written, is slightly biased in favour of the player. Once you've figured out the 
winning and losing pairs of cards, you might like to change these two lines to either 
bias the game in favour of the poor little ZX81, or to make it 100% fair. 


BLACKJACK 


This BLACKJACK program uses the same string idea as BARBUDI, with an 
undefined string (A$, line 60) holding the cards, and a defined string (C$, lines 10 to 
50) determining the suites. C$ must be defined because its elements are more than 
one character long. 


The program as listed here acts as aealer. It first deals a card to itself, then deals you 
your first card. From then on, you can decide to accept further cards or 'stand', that 
is, stick to the total you have. The aim of the game is to get a total of 21 (which is 
called a blackjack) or as close as possible to 21, without exceeding 21. If your total is 
more than 21, you 'bust'. Non-picture cards count as their number (i.e. a two of 
hearts counts two), picture cards (jack, queen, king) count as 10, and the ace counts 
as 11, unless - by adding it to your total - you would bust. In this case, it counts as 
one. 


The suites make no difference, and the program automatically works out the total 
for both of you, changing an ace from 11 to one where necessary. 


Once you are familiar with the program, you will probably like to add a mechanism 
for handling both your and the ZX81's money, and allowing for bets. 
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DIM CZ(4, 8) 

LET CZ (1) = "HEARTS * * " 
LET СХ (2) = "DIAMONDS" 
LET CZ 2 = "SPADES * * " 
LET C$ (4) = "CLUBS ж x * n" 
LET АЯ = "23456788TJQKA" 
GOTO 220 

LET A = INT(RNO*13) + 1 
[ЕТЕ =A 

FOR N = 1 TO 35 

NEXT N 

LET Y = INT(RNO*4) + 1 

LET R = Y 


PRINT "MY CARD IS * ";АД(А);" * ";CZ(Y) 
СЕТА = А + 1 

IF A> 9 АМ А < 14 THEN LET A = ЛИ 

IF A = 14 THEN LET A = 11 

IF A = 11 AND 7 + A> 21 THEN LET A = 1 
LET 2-2 2*4 

PRINT "MY TOTAL IS * ";7 

RETURN 


uou 


LET H = 
LET Z = 
GOTO 8g 


PRINT 

PRINT "PRESS N/L FOR YOUR FIRST CARD" 
INPUT 24 

LET B = D pent +1 

LET Y = INT(RNO*4) + 1 

PRINT АТ 4, 12; АЯ(В);" * ";си(у) 

LET 838 + 1 

IF В > 9 AND B < 14 THEN LET В = 19 
IF В = 14 THEN LET В = 11 

IF В = 11 AND H +B > 21 THEN LET B s 1 
LET H= H+ B 

PRINT AT 5, 8;"YOUR TOTAL IS * ";H 


PRINT AT 6,1;"ENTER "A" FOR A NEU CARD" 
PRINT АТ 7,И;"ОВ PRESS NEWLINE TO STAND" 
INPUT 84 

IF ВА = "A" THEN GOTO 28g 

CLS 


IF H = 21 THEN PRINT ,"BLACKIACK" 
PRINT N 

PRINT "OK, YOU STANO ON * ";H 

IF H> 21 THEN PRINT ,"BUST" 

IF H ? 21 THEN GOTO 660 

PRINT 


PRINT "MY FIRST CARD WAS * ";a£(E);" * ";CA(R) 
PRINT "AND MY TOTAL WAS * "37 

PRINT 

PRINT AT 6, ЛІ WILL NOU DEAL" 

GOSUB 80 


84 


530 IF Z > 21 THEN PRINT ,"BUST" 


54g ТЕ Z = 21 THEN PRINT ,"BLACKIACK" 

55g ТЕ Z < 18 AND H < 22 THEN GOTO 520 

560 FOR N = 1 TO 35 

570 МЕХТ М 

580 CLS 

59g PRINT "YOU STOOD ON * "3H 

egg PRINT 

61g IF Z < 22 THEN PRINT "I STAND ON * ";2 

620 PRINT 

63g IF H = 21 THEN PRINT "YOU HAVE BLACKJACK" 

64g IF H = 21 AND Z = 21 THEN PRINT "AND 50 HAVE I" 

650 IF Z = 21 AND Н €? 21 THEN PRINT "T HAVE 
BLACKJACK" 

66g IF (ЕУ H OR H> 2 AND 2 € 22 THEN PRINT ,"I UIN" 

670 IF (H ? Z OR Z > 21) AND H < 22 THEN PRINT 
," YOU WIN" 

68g IF H< 22 AND H = Z THEN PRINT ,"STAND OFF" 

69g IF H > 21 AND Z > 21 THEN PRINT „ТШЕ BOTH BUST" 

7094 FOR М = 1 TO 5g 

714 МЕХТ М 

720 CLS 

738 RUN 


STORING INFORMATION IN 
STRINGS 


In the BLASTERMIND programs, in BARBUDI and in BLACKJACK, we stored 
certain information, in the form of characters, within strings. The information was 
accessed by looking to the position of the character within the string. 


Many BASICs have a READ/DATA facility, but a projected one for the new ROM 
ZX80 and ZX81 was dropped to make room for the firmware to run the printer, so 
we have to create a substitute. REM statements are quite useful, but strings can be 
used as well, and turn out to be much more flexible. 


In this next little routine, the elements of strings M$ and N$ contains information 
relating to position. ł will not tell you what the routine prints on the screen — and I 
defy you to guess. Enter it now, and RUN it. 


10 LET MZ = " six graphicS 777777" + СНАХ 11 + "£gi" 

28 LET N£ = " graphics of the following 1274511274 
515472! 

30 FOR А = 1 TO 16 

49 PRINT AT CODE МЯ(А), CODE NZ(A);"inverse space" 

5g NEXT A 


Note that there are no spaces in either of the two strings. RUN this and then change 
line 40 to read: 


4g PLOT CODE MZ(A),CODE NZ(A) 
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You get something different don't you? And I'm not going to tell you what you get 
in either case, you'll have to enter the programs for yourself. 


This works because the loop from line 30 goes through each string, element by 
element, changing it into a number (the code of the character) which it then uses for 
information to PRINT AT or to PLOT. 


The strange thing in M$ (+ CHR$ 11 +) is there because character 11 is the quote | 
mark, and you cannot enter that directly into a string. 


In our next program — BAKER'S DOZEN -- strings are used to store the 
relationship between each position so the ZX81 can decide where to move (A$) and 
printing information to print out the board (B$ and C£). 


BAKER'S DOZEN 


The ZX81 plays a strong, attacking game in BAKER'S DOZEN, and will probably 
beat you two to three games out of five until you learn its strategy. The game is based 
on NINE MENS MORRIS and NOUGHTS AND CROSSES. You have 12 pieces, 
which you place on a NINE MENS MORRIS board, alternating moves with the 
ZX81. The aim is to get three pieces in a row, along any of the lines shown in the 
diagram to the right. Note that the 


program has a provision for you, or the 2 — —— 
2X81, to go first. | 
! 
If you want the program to be shorter, C | 
— LU re 


you can easily delete this option. The 
reference to graphics means shift of the 

named key, while in the graphics mode. 

There are no spaces in the strings. 


ЛИ LET AZ-"graphic 1 graphic 2 two graphic 7 graphic 4 two graphic 5 
graphic T two graphic E graphic A гтарһіс 1 graphic D graphic 5" 
+CHRZ 11+СНКЯ 114"£$8:?? left-bracket graphic D right-bracket 
><<»”++-и®/< graphic 2 graphic S» graphic 4 £= graphic T :- 
eraphic A (/" 

20 LET BZ = "three graphic? £ + + + £ three graphicT 
£>>> к three graphicD £? ? ? £" 


30 LET СЯ = "graphicá £ = = = £ tuo graphic4 graphict 
£ ) ) ) Е tuo агарһісЕ graphicS £ : : : £ 
two graphics" 


4d DIM 14(16,3) 
5g F0R 22 1 TO 16 
би LET LZ(2) = AB(3*Z - 2 TO 3*2) 
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78 МЕХТ 2 


ви PRINT "DO YOU UANT ТО GO FIRST?" 

9g INPUT AS 

104 CLS 

119 FOR Z = 1 TO 24 

115 PRINT AT CODE 82(2), CODE СД(72);7 

128 NEXT 2 

134 DIM MZ(24) 

144 IF CODE AÉ = 62 THEN СОТО 19g 

15g PRINT TAB 28; 

16g LET М = INT(RNO*24 + 1) 

17d LET MZ(M) = "graphic4" 

18g LET К = 189 

185 GOSUB8 1000 

190 INPUT М 

209 LET МЕ(М) = "graphic 1" 

21g LET К = 18g 

215 Gosus 1009 

228 DIM 58(16) | 

23d FOR Z = 1 TO 16 

248 LET SÉ(Z)-CHRÉ(CODE MZ(CODE 14(2,1))*cODE MÉ(CODE 14(2,2)) 
*CODE MÉ(CODE 14(2,5))) 

250 ІР SÉ(Z)O "graphic 7" THEN GO TO 51) 

280 PRINT АТ 11, 11;"YOU";TAB 11;"three inverse 

space";TAB 11;"WIN" 

3004 STOP 

31g IF 54(2) = "graphicA" THEN GOTO 730 

32g NEXT 2 

33g FOR 2 = 1 TO 16 

34g IF 58(7) = "graphic2" THEN GOTO 730 

350 NEXT 2 

360 FOR 2 = 1 TO 15 

378 FOR Ј = Z + 1 TO 16 

38g IF 58(2) = "graphic4" ANO S8(3) = "graphic4" THEN 

GOSUB 83g 

39d NEXT J 

4gg NEXT 72 

418 FOR 2 = 1 TO 15 
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420 FÜR 3 = Z + 1 TO 16 


43g IF 58(2) = "дгарһіс1" AND 598(3) = "graphici" 
THEN GOSUB 830 

44g NEXT J 

45d NEXT 7 

468 FOR 2 = 1 TO 16 

478 FOR J = 1 TO 16 

488 IF 58(7) = "graphic4" and $%(3) = "space" 

THEN GOTO 620 

49g NEXT J 

sgg NEXT Z 

51g LET As fg 

520 LET А = А + 1 

53d IF A = 24 THEN 3TOP 

54g LET f = М + 1 

55g IF А/В = INT(A/8) THEN LET M = M + 8 

56 IFM > 25 THEN LET M = M - 24 

570 IF M = 9 THEN LET M = 1 

587 IF М = 17 THEN LET М = 9 

59g IF M = 25 THEN LET M = 17 

600 IF má(m) <? "space" THEN GOTO 520 

614 GOTO 170 

620 LET АЯ = "" 

638 FOR K = 1 TO 3 

648 FOR = 170 3 

658 IF LA(Z,K)*LÉ(J,L) THEN LET АИ 12(2, К) 

66d NEXT L 

678 МЕХТ К 

68g IF АХ = "" THEN GOTO 490 

69g FOR K = 1 TO 3 

788 IF АЯ = LZ(2,K) THEN NEXT К 

710 LET М = CODE LZ(J,K) 

724 GOTO 170 

730 FOR K = 1 TO 3 

748 IF MS( CODE LZ(Z,K) <> "spacé" THEN NEXT К 

754 LET М = CODE 14(2,к) 

768 IF S8(Z) <>  "graphicA" THEN GOTO 170 

778 LET К = 189 
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780 GOsuB 1000 


agg PRINT AT 11,11;"inverse space inverse I inverse Space" ; ТАВ 11; 
"three inverse space";TAB 11; "WIN" 


82g STOP 

83g FOR K = 1 Т0 3 

84d FORL = 1 TO 3 

85g IF LZ(2,K) = L2(3,L) AND MZ(CODE LZ(Z,K)) 
= "space" THEN GOTO 759 

869 NEXT L 

870 NEXT K 

880 RETURN 

10004 PRINT AT CODE B$(M),CODE CÉ(M);CHRÉ К}"врасе" 

1919 RETURN 


PEEK AND POKE 


PEEK and POKE seem more frightening than they are. The following is somewhat 
simplified and incomplete, but should tell you enough to start thinking about, and 
using, these two useful commands. 


Imagine that the thinking part of the ZX81 is a suitcase, filled with matchboxes. 
Every matchbox is numbered, so at any time we can look inside the matchbox 
(PEEK inside it) to see what is in there, or we can put something (POKE it) into the 
matchbo x. 


In the complicated world of computers, the number which is written on the side of 
the matchbox is called its address. So, when you want to look inside a matchbox, 
you PEEK into its address. When you want to put something in a matchbox, you 
POKE it into the matchbox's address. 


Now, because the ZX81 deals in numbers, the stuff inside each matchbox (that is, 
in or at each address) is a number. We POKE numbers in, and when we PEEK an 
address we get a number. 


Every part of a program has an address, and we can change bits of programs by 
POKEing things into the relevant address. 
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Try the following program. RUN it and then look at the REM statement in line 10. 


1p REM AAA 

20 LET А = 16514 

3g LET В = 16515 

4g LET С = 16516 

5g INPUT D (D must be greater than 2 and less than 60) 
6g POKE A, О 

78 РОКЕ B, D - 1 

8g POKE C, D + 1 

9g LIST 


When you RUN this, you'll find the AAA in line 19 has been changed, because lines 
60 to 80 POKEd new information into the addresses (16514, 16515 and 16516). 


Address 16514 is the first address after the word REM in the first line of a program. 
There is one big advantage storing numbers in REM statements — they аге not lost 
when RUN or CLEAR is used, whereas ordinary assigned variables (such as LET А = 
3) аге lost when RUN or CLEAR is used. 


In the next program, in which you have to guess a number which the ZX81 has 
thought of, the ZX81's secret number is stored in address 16514, your guess is stored 
in 16515 and the number of guesses you've had is stored in 16516. 


Enter and RUN it a few times, and try and understand how it works. 


1g REM AAA 

28 РОКЕ 16514, INT(RND*59) + 2 
3g POKE 16516, Ø 

4g LET А = 16514 

5g LET B = 16515 

6g LET C = 16516 

74 POKE C, PEEK(C) * 1 

8g PRINT "ENTER GUESS * ";PEEK(C) 
9g INPUT D 


104 POKE В, D 

119 IF ај = а THEN GOTO 170 

128 IF РЕЕК(В) < PEEK(A) THEN PRINT PEEK(B);" 
* 1S TOO LOu" 

13d ТЕ РЕЕК(В) > PEEK(A) THEN PRINT PEEK(8) ;" 
* IS TOO HIGH" 

148 IF PEEK(C) < 11 THEN RUN 4g 

154 PRINT "TIME IS Up" 

168 GOTO 189 

174 PRINT "YOU UERE RIGHT IN ";PEEK(C);" GUESSES" 

180 PRINT "I WAS THINKING OF * ";PEEK(A) 
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DRAUGHTS 


This next section will enable you to develop a complete game of draughts. However, 
the main reason it has been included is so 1 can explain a method of numbering 
boards for board games which make it easy for a computer to manipulate. A similar 
board-numbering system can be used as the core of a chess program, noughts and 
crosses and even Nine Mens Morris. | strongly urge you to follow through the text 
carefully, entering the programs as listed. If you do this, you should learn quite a lot 
which will help you when you come to write your own board games. It is not in your 
best interests just to input the final draughts program without entering the preceding 
programs. 


THE NUMBERING SYSTEM 


The normal way to number a draughts board is to count off the white squares 
(actually, the black squares are counted, but white ones are used here because they 
are easier to use in the computer context) from one to 32. But this numbering 
method creates a problem when we try to define a move in terms of the difference 


between two diagonally adjacent squares. In one direction, the difference between 
the squares can be three or four and in the other direction, the difference can be five 
or four. There are also no 'spare' numbers to indicate where the edge of the board 
begins. Now a gentleman by the name of " 

A. L. Samuels wrote an article for Scientific 
American in the 1960$ (see Strachey, 
Christopher, "Systems Analysis апа 
Programming”, in Readings from Scientific 
American, W. H. Freeman and Co., San 
Francisco, 1971) in which he devised a clever 
numbering system in which the difference 
between diagonally adjacent squares is always 
four and five (or minus four and minus five). 
It also allowed for numbers to be given to 
squares which were ‘off the board’. I’ve 
changed his numbering system a little to 
make it more convenient for the ZX81, and 
in my system, the difference between squares is always six or seven (or minus six and 
minus seven). My system, véry simply, sets up an array of 82, and allots certain 
elements of the array to squares on the board. All the others are understood by the 
computer to be off the board. 


In this program, the ZX81 allots the value 9 to any square off the board, zero to an 
empty square, 1 to a computer's ordinary piece (2 to a computer king) and —1 to the 
player's ordinary piece (and —2 for a player's king). This may sound a little 
complicated, but bear with me, and it will (hopefully) all become clear. 
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Here is my numbered board. You can see that if you move from the top left hand 
corner (69) to the square diagonally below it (63) the difference between the two 
squares is —6. Now, choose any other square on the board from which you can move 
down and to the left, and you'll see there is a difference of —6 between the square 
you started on, and the square on which you finished. This sort of predictable result 
is relatively easy for a computer to handle. Move in the other direction, that is 
downward and to the right, and you'll see the difference between the two squares is 
—7. In the first version of draughts, we'll actually be playing on the board printed 
above, so you'd better start looking for a number of small buttons to use as playing 
pieces. 


The program is in two parts. The first 'sets up the board' (the subroutine starting at 
9000) and the second (10 to 370) actually plays the game. Your pieces start at the 
bottom of the printed board (on the lower numbers) and the ZX81 starts at the top. 
You place your pieces and the ZX81's on the board and then press RUN. The ZX81 
assigns the values to the elements of the array in the FAST mode, then goes to 
SLOW to play the game. It still plays remarkably fast, even in SLOW, but if you'd 
like it to play even faster, leave out line 5 for the time being although you'll need 
SLOW later on, when we get the ZX81 to print out a board. 
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The ZX81's moves are shown as two numbers. The first is the square it is moving 
from, and the second — naturally enough — is the square it is moving to. Move its 
piece on the board as instructed and then decide on your move. Make sure you move 
your piece BEFORE you input your move (which you do by entering the number of 
the square you're moving from, then NEWLINE, then the square you're moving to) 
or you may forget what your move was. In the FAST mode, the ZX81 can sometimes 
make a decision so quickly you hardly have time to move your finger from NEWLINE 
before the ZX81 has made, and printed, its decision. 


In this program, the ZX81 will make kings automatically (its kings are made in line 
49, your kings in line 100) and it will use its kings most effectively, despite the fact 
that its only 'strategy' for king use is line 65 (which keeps it moving its kings in the 
area bounded by squares 24 to 53). Note that there is no provision within the 
program for multiple jumps by either the player or the ZX81. The program has been 
deliberately left incomplete so you can work on it once you've understood the 
material presented in this section. A number of suggestions for improvement, 
including the provision of multiple jumps, is included at the end. 


Here is the first part of the program, the section which sets up the board. It creates 
an array (DIM A(82)) then fills the array with numbers representing pieces on the 
board (1 and —1) empty squares (0), and squares off the board (9). 


1 GOSUB 9ggg 
5 SLOU 
9000 ҒА5Т 
9010 DIM A(82) 
9g2g DIM B 
9030 LET x(1) = - 6 (These are the values which 
9gagd LET x(2) = - 7 relate diagonally adjacent 
9gsg FOR Z = 1 TO 82 squares.) 
9060 LET А(2) = 9 (‘off the board!) 
9070 ТЕ 24673 AND 2 > 55 AND NOT (7 = 67 OR 7 = 68 
OR Z = 68 OR Z = 61 OR 2 = 62) THEN LET 


А(7) = 1 (the ZX81's pieces) 
90860 IF z < 54 АМО 7 > 42 AND NOT (7 = 47 ОН 7 = 48 ОН 
7 = 49) THEN LET A(Z) = d (vacant squares) 
9090 ТЕ Z < 41 AND Z 223 AND NOT (Z = 34 OR Z = 35 OR 
2 = 36 OR Z = 28 OR Z = 29) THEN LET 
A(Z) = - 1 (your pieces) 
9180 МЕХТ 2 
9117 LET АЯ = "MY MOVE Ж " 
9128 LET ВЯ = "YOURS?" 
913g RETURN 


Check to see if this is working correctly before you proceed. Add 8000 STOP, then 
RUN the program. When it stops, get the ZX81 to print out the following, to make 
sure it has assigned values correctly. The right answer is given in brackets after the 
command: 


PRINT  A(23) (9); PRINT А(38) (-1); 
PRINT A(54) (9); PRINT  A(51) (0) ; 
PRINT А(64) (1); PRINT  A(73) (9). 


If this works satisfactorily, SAVE it a few times (just in case you lose the program a 
little later) and then input the following, which actually plays the game. 
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LET Q = f 
FOR Z = 24 TO 72 
IF NOT (A(2) = 1 OR A(Z) = 2) THEN GOTO 1gg 
IF А(2) = 1 AND 2 > 23 AND Z< 28 THEN LET A(Z) = 2 
FOR X = 1 TO 2 
IF A(Z + X(X)) CH AND A(Z + 2*(X(X))) = d THEN 
LET Q = X(x) 
IF Z > 55 THEN GOTO 8g 
ТЕ A(Z) = 2 AND A(2 - X(X)) С И AND А(2 - 2*(x(x))) 
= Ø THEN LET Q = -x(x) 
IF NOT Q = И THEN GOTO 128 


NEXT X 

IF A(Z) = - 1 AND Z > 68 AND Z < 73 THEN LET 
A(Z) =- 2 

NEXT Z 

IF Q = d THEN GOTO 160 

СЕТ А(2 + Q) =Й 

LET A(Z + 2*Q) = А(2) 

LET А(2) =Ø 


PRINT AZ3Z, Z + 2*Q 
GOTO 320 


4 + INT(RND*48) 

LET Y= Y +1 

IF Y <1@@ AND NOT (A(Z) = 1 OR A(Z) = 2) 
THEN GOTO 179 

FOR X = 1 TO 2 


IF A(Z + X(X)) = d THEN LET Q = X(x) 

IF A(Z) = 2 AND A(Z - X(X)) = И THEN LET 
Q = - Х(Х 

IF МОТ Q = @ THEN GOTO 29g 

NEXT X 


IF Y САМИ THEN GOTO 170 
PRINT "YOU WIN" 


STOP — ee А № 


LET Ae +0) = А(2) 

LET A(Z) = В 

PRINT AZ;2, 2 +Q ` 

PRINT „Ва 

INPUT A 

INPUT B 

CLS 

LET А(В) 

LET A(A) 

IF ABS(A - B) > 7 THEN LET ACA + (INT((B - A) 
/2)) =й 

GoTo 14 


A(A) 
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Play a complete game with the ZX81, using little buttons on the board provided, then 
return to this book and we'll go through the program line by line to explain how it 
works. 


Line 10 sets up O as the indicator (or 'flag') to show a move has not been made. 
When a move decision has been made, О changes to a value which is not zero. Line 20 
starts the loop which checks every square on the board to see if a capture can be 
made. Line 30 checks to see if the square being looked at (i.e. the element of the 
array) is a ZX81 standard piece (1) or a ZX81 king (2). If it is not, the computer does 
not waste time checking through the logic statements, and goes to 100. At 100 it 
checks to see if a player's piece (—1) is on the 'king line' and if it is, changes the 
player's piece to a king (—2). 


If the computer finds that the piece it is considering is one of its own it then checks 
(in line 40) to see if it should be made into a kirig (i.e. changed from 1 to 2). Next, 
it goes through the X loop, checking that the piece down and to the left (—6) is less 
than @ (if it is, the square contains a player's piece) and that the square twice the 
distance away (i.e. —12) is an empty square. If these two conditions are true it sets 
the capture flag (О) to —6. Line 65 checks that if its piece is a king, it does not roam 
further afield than square 55 (as discussed earlier when talking about king strategy). 


In line 70 it makes a similar check to the one it did in line 60, except this time it 
checks to see if a king (2) can capture ‘backwards’. You'll notice by looking at the 
numbered board that the legal ZX81 king moves are +6 and +7, so this line checks to 
see if there is a player's piece on the square +6 and if the square beyond it (412) is 
vacant. If it is, the capture flag is set to +6 (it is actually set to —X (X) which has the 
same effect). 


If, in line 80, the ZX81 finds O still equal to zero, it knows it has not made a decision 
to capture. If, however, О is non-zero, control is sent to line 120 to act on the decision. 
Line 99 ooks through the X loop with the second value (—7) of X(X). Line 105 
continues to search through the Z loop, checking every square to make sure a potential 
capture is not missed. : 


If Q still equals zero when the ZX81 gets to line 110 it knows there is no potential 
capture on the board, so control is sent to line 160 to find a random, legal move. If, 
however, Q is non-zero, lines 120, 130 and 140 make the capture, and line 150 
displays it. Having made its move, it sends control to line 320 to accept the player's 
move. 


If a legal move has not been made, the computer looks for a random move. The flag 
Y (line 160) counts the number of attempts made to find a legal move (adding one to 
Y in line 189 each time it tries a move). If no move is found in 99 attempts (line 260) 
the ZX81 wisely concedes defeat. 
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Line 190 checks to see if the square it has generated contains one of its own pieces, 
andif it does not, and Y is less than 100, goes back to pick another square at random. 
Once it finds a piece of its own, it applies the ‘X loop test’ (lines 200 to 240) tosee 
if itcan move legally, again using the flag O to indicate whether or not a move has been 
made. 


Lines 270 and 280, as we've said, concede defeat. Lines 290 to 310 made the move 
and print it for the player. 


The player then makes a move (lines 325 and 330) and the ZX81 acts on it (lines 
340 to 360) using the somewhat complicated line 360 to capture a ZX81 piece if the 
player's move is greater than seven. It knows that a move to an adjacent square must 
be either 6, 7, —6 or —7 and that a move greater than this can only come if the player 
is jumping over a ZX81 piece (or cheating). The ZX81 never assumes the player is 
cheating (because the computer cannot cheat) so uses line 360 to work out which 
square lies between the square the player moved from, and the square the player 
moved to, to 'erase' its own piece. 


Once you've understood the foregoing, you can start improving the program. I'll give 
you a way of printing up a board (although you'll still have to refer to the 
numbered board to input your moves) but the other improvements are up to you. 
Once you've got the printing of the board under control, you might like to try and 
add the following, to change the program into a real draughts game: 


— Add multiple jumps (these are relatively easy, as each multiple jump is a 
predictable arithmetic change from the starting square, and the array is 
large enough to stop you jumping out of it in most cases when looking for 
potential multiple jumps). Player's multiple jumps are very easy. Just get 
the ZX81 to ask "IS THIS A MULTIPLE JUMP?” If a capture (line 360) is 
made, and if the answer is “YES”, send control back to 325 to allow the 
second jump to be made. 


— Add a ‘capture tally’ so the computer will print up after each move how 
many each of you have taken. The ZX81 can then declare itself the winner 
if it, say, captures nine of your pieces. 


— Add a mechanism to accept moves directly, rather than by having to look 
it up on a table. 


There are probably other improvements you can make, but | feel these should be 
your first priority. 


96 


ADDING A DISPLAY 


The final ‘improvement’ | will give you to the program is a little routine (developed 
by Toni Baker) to print out the board. 


Delete line 320, change 310 and 150 to GOSUB 5090 and add 15 GOSUB 5000, Now 
add the following: 


5000 FOR М - 24 TU 72 

5018 IF A(M) 1 THEN LET A(M) = 
5@2Й IF a - 1 THEN LET А(м) 
5038 IF А(М 2 THEN LET A(M) = 
5048 IF А(М) - 2 THEN LET A(M) 
5gsgd NEXT M 


5Й6Й PRINT AT 1, Й; АЯ; 2, Z + Q 
5Й7Й PRINT AT 3, 11; BS 


548g PRINT "nine graphic A" 

5gog FOR K И TO 3 

519g FOR J = И TO 3 

511g PRINT "inverse space";CHRZ(A(72 - J - 13*K))3 
5120 МЕХТ 3 

5138 PRINT "graphic A" 

514g FOR 3 = И TO 3 

5158 PRINT CHRÉ(A(66 - J - 13*K));"inverse space"; 
5168 NEXT J 

5170 PRINT "graphic A" 

518g NEXT K 

5190 PRINT "nine graphic A" 


=u 


528g FOR М = 24 TO 72 

5210 ІҒ А(М) 61 THEN LET А(М) 
522Й IF A(M) 52 THEN LET SUR 
5238 IF А(М) 48 THEN LET А(М 
5248 IF A(M) 13 THEN LET A(M) 
525g NEXT M 

5260 RETURN 


H H H H 
"H H H M 


INI œ 


With this in place, you'll actually see the piece move. Ignore the line "MY MOVE..." 
when it gives the same square number twice. Wait for it to change, and then watch 
the computer's piece move. Captures look particularly good. Wait until the inverse L 
appears in the bottom left hand corner before you attempt to enter your move. 


Note that the two loops (5000 to 5050 and 5200 to 5250) decide which character will 
represent which piece. By all means change these if you like. Note that, as in 'real' 
draughts, a king does not become a king till the move after the one in which it was 
moved to the king line. 
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LIFE 1 AND2 


Before we move onto our final draughts program, l'd like to show you how a 
numbered grid, which has the same numerical relationship between adjoining squares 
all over the grid, can be used to produce the program LIFE. 


LIFE was invented by John Conway of Cambridge University in 1970. The game, 
which simulates the birth, growth and death of a cell colony, produces fascinating 
effects. 


Each cell in the colony is born, survives ог dies according to Conway 's rules: 


* Each cell on the grid (which is drawn on the outside of a cylinder in our 


case) has eight neighbours. 
Every cell with two or three neighbours survives to the next generation. 
If there are three, and three only neighbouring cells, a new cell is born 


Any cell with four or more neighbours dies from overpopulation 


1 REM лек 99 USING PLOT 
5 LET G=@ 
z RAND 
за DIM R(10.181 
оа СТМ B(10, 10) 
30 FOR X=2 TO 9 
аа FOR Y=2 TO а 
ка IF RND».55 THEN LET RI(X.Y1l = 


ба LET ЕСХ, УЗ =R (X. Y) 

70 NEXT Y 

ве NEXT X 

за GOSUB зева 

95 LET G-G-41 

ісе FOR x-2 то а 

118 FOR Y=2 TO а 

120 LET C=@ 

130 IF R(X-1.Y-1)-21 THEN LET C= 


і4а IF ACK-1,Y) =1 THEN LET С=с + 
1450 ТЕ АЯ(Х-1.ү+1) =1 THEN LET C= 
160 IF ACX.Y-1) =1 THEN LET С=С+ 
1 та IF (Х,У +1) за THEN LEY Cp 
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IF ACX4+1.Y-1) =1 THEN LET C= 
IF R(X+1,Y)=1 THEN LET С=С+ 
IF R(X+1,Y+1)=1 THEN LET C= 
ТЕ R(X.Y)=1 AND C«»3 ANP Ге 


1 
»2 THEN LET EB (X .Y') =0 


22а IF A(X.Y) =й AND С=З THEN LE 
T BOX, Y)-1 

230 NEXT Y 

540 NEXT X 

250 GOTO 90 

1000 PRINT AT 8.0: “BEE 

10014 FOR X=1 TO 10 

1002 FOR Ү=1 TO 10 

1004 IF НО) =1 THEN UNPLOT X.Y 
t 

1006 IF R(X.Y)-1 THEN PLOT жила, 
Y t1 

1010 IF R(X,Y)=@ THEN PLOT Х,У»Л 
1 

1012 IF (Х,У) =@ THEN LINPLOT X44 
1.Y3*11 


1015 


LET R(X,Y) 


a ==? 


A(X,Y¥I=1 THEN UNPLOT Х,У 
IF В(Х,У)-1 THEN PLOT X+11, 
IF R(X,Y1=@ THEN PLOT X.Y 
IF ACX,¥) =@ THEN UNPLOT Ха 
NEXT Y 
NEXT X 
RETURN 
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2 REM LIFE UITH PRINT A 
S LET б=0 m 
7 RAND 
10 DIM nt10.10) 
20 DIM 5:10.10) 
ЗӨ FOR X=2 TO 9 
40 FOR Y=2 TO 9 
БӨ IF RND».45 THEN LET fR!X.YvY23- 


60 LET Вх, У) ях, Y? 
70 NEXT Y 

ва NEXT X 

аа GOSUB 1000 

95 LET G=G+i 


130 IF пка, .Y -121z1 THEN LET C= 
ышы IF Я UX-1,Y)z1 THEN LET С=С+ 
150 IF R(X-1l,Y+1)=1 THEN LET C= 
160 IF R(X.Y-1)zi THEN LET CzC* 
тате ТЕ R(X.V+1)=1 THEN LET C=C+ 
150 IF AtX+1,Y-1)=1 THEN LET C= 
190 IF R(X+1.Y)=1 THEN LET C=C+ 
NT. IF R(X+1,Y+1)=1 THEN LET C= 
е Садыр сол емее 


220 IF ПХБ) зо AND С=З THEN LE 
T B(X.Y) =1 
230 


әзе GOTO өе 
еде PRINT HT 4,13; "ШЕИ 


1001 FOR X-1 TO 10 

1002 FOR Y=1 TO 16 

1015 LET R(X.,Y)=B (X, Y) 

1020 IF R(X.Y)=1 THEN PRINT AT X 


ы” 
1930" пета =0 THEN PRINT AT X 
1040 NEXT Y 


1050 NEXT X 
1060 RETURN 
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DRAUGHTS 


Time now to return to draughts, and this time it is a ‘proper’ draughts game, with an 
easy-to-use mechanism to enter a move, multiple jumps, a 'capture tally' and several 


other features 


This program is very effective in SLOW, especially in the early stages of the game. 
However, when there are less pieces on the board, and the ZX81 has to do more 
thinking before it decides on a move, it can be very slow. Therefore, you may prefer 
to run the whole program in FAST. Certainly in the early stages of testing your 


program you should stay in FAST, just to save time. 


20 RAND 
39 GOSUB 90090 


го 
1000 IF Ct$(1)z"K" 


1015 PRINT AT 17. 


Cs 


їага INPUT RE 


igh РЕ алда AT 17, 


TO 
1040 INPUT C$ 
c „PRINT AT 17 


1066 LET Z(1) 

1070 LET Zt2) 
C$(2) 

1050 кен 


2 

1198 IF 
1110 IF 
1129 IF 
tise IF 
2140 IF 
150 IF 
ілсе ІҒ 
iie rr 


U=1 
F Zn 


Z (U) 
2 (Uu) 
#1) 
Z (üJ) 
2 (9) 
Z (өз 
Z (U) 
Z (ü) 


2410 
=412 
=414. 
=416 
=419 
“4291 
-423 
“425 
=4 30 


5 жаай ыле с Ар S= -16K 


THEN сата дала 
1005 PRINT AT 16,3; YOUR LAST HO 
UE WAS TO "; 
1010 LET МОЏЕ-О 


4; "THIS MOUET 


14;:" 


‚ 85; ” 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


FROM "R$: 
“; CS, "ЕВИ 
*CODE 


-CODE Б5(1) +10 
-CODE C$í13)-r310*CDODF: 
TO 2 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
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Btu 
B (ui 
Bru 
ви 
Btu) 


E (LI) = 


BLD 
Б (о? 
Bua 


1180 IF Z(U)z432 THEN 
ЕСІ IF Z(U) =434 THEN 
i2ee IF Z(U)z436 THEN 
1210 IF 2(0) =439 THEN 
Тәзе IF Z(U)-44i THEN 
lose IF ZU) =443 THEN 
i240 IF 2(U) =445 THEN 
1950 IF 2(U) =45@ THEN 
1260 IF ZU) =452 THEN 
Тете IF 200) =454 THEN 
1280 IF 2(0) =456 THEN 
1290 IF Z(U)z459 THEN 
2зее IF Z(U)-z461 THEN 
1310 IF Z(U) =463 THEN 


1320 IF Z(U)-465 THEN 
isse IF Z(UJ:-4708 THEN 
2228 IF Z(U) =472 THEN 
2358 IF Z(U) =474 THEN 
1360 IF Z(U) =476 THEN 
1370 IF Z(U) 479 THEN 
isso IF 2(03 -481 THEN 
1590 IF Z(U)=483 THEN 
1400 IF 200) =485 THEN 


1465 FAST 
1470 GOSUB 7000 
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LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


E 06197 1 
-B(2))>7 


В (u) = 


B (u) 
BuU 
Bry 


6 Оз = 


во» 


В (U) = 


Bu 


B (Li) = 


в (U) 
Brun 
вая 
E (L) 
Buy 


Bua 


В (U) = 


Btu) 
B (Li) 
B L’ 
B (U) 
E (U) 
E (Ú) 
ли 


Re EL. 
Q =Ə 
Z=69 TO 72 
2005 IF AtZ) =H THEN LET AIZ =Ņ 
2007 NEXT Z 
2009 FOR Z=24 TO 72 
2926 IF AZ) <>C AND AZ} << «Қ THEN 
GOTO 2110 


2030 IF AC(Z)=C AND Z»23 AND Z«28 
THEN LET AZ) СК 

2040 GOSUB 5000 

2080 IF ака THEN сата 2125 

2110 NEXT Z 

2190 GOTO 2240 

2125 LET A(Z+2x8) =R (Z) 

2130 LET &=5+1 


ET се 
2170 соѕив seea 
2190 IF Саса THEN GOTA 2125 
2210 бота 50 
PNT SLs DRE Ne pd 


5559 IF AZ) =9 OR RIZ)-B OR AZ) 
=H OR A(Z?) =U TOEN GOTO 2388 

2260 FOR С=1 TO 

8270 SP A(z +x tbi) =н AND Бса THEN 


2260 IF (A(Z+X(D)) =H OR R(Z+X(D) 

учи) AND ACZ-X(D}}=B AND R(Z-2 xx 

(D) ) =K THEN LET Q-Z-2xXtD) 

2290 IF ха AND (RI(Z+XI(D) а =H OR 

ACZ+X (D2) =) AND ACZ-X (03) =R AND 
(ACZ-2#X(DI) =K OR BUZ-2xX (D) 2 =C 

) THEN LET Q=Z-2#X1D) 


2300 IF @=@ THEN NEXT D 


RAN ROM. ГИЛЕ 


2349 LET ТТ=@ 
2350 DIM І(49) 
2355 FOR Jz1 TO 49 
2360 LET >i wheal: 


=1+ INT САМО Ы) 
Y) 
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2380 IF AZ) =9 OR AZ) =B OR ARIZ) 
=H OR AtZ) =U THEN GOTO 2436 

239@ FOR D=1 TO 4 

zot ТЕ AtZ)=C AND D»2 THEN GOTO 


2404 IF IT-1 THEN GOTO 2410 


>Ч THEN LET G-x(D) 
2410 IF Я2+хХ (0) ) =6 THEN LET QzX 
гара IF оаза THEN СОТО 2460 


2425 NEXT D 
2450 LET I (Y) =Т СМ) 


5 

%< 

он ANG A(Z-1+220ABS (D-2. 
M 

G 


1 
2439 IF IT-1 THEN GOTO 2355 
2440 LET ES="LOSE" 


өт Евг. EGRE 
7010 PRINT HT 16,0;" 


7020 PRINT RT 17.90: “ 


газа IF HMOUE-1 THEN LET Т=т+1 
7090 PRINT AT 2.4: "CH 
en ($4156), “ICHRA (T+15S 


7100 PRINT AT 
7110 PRINT AT 


Woo ces AC 


y; ` “CHRE Я 
` ";CHR$£ A 
7150 PRINT 

) ; > 4. ; CHR 


ө: EM. сони, 
y. `; CHRS ЕДЕН 


аа"; снае Ale 
ско 21% pones Я (25) 
2 


Я (2 
90 PRINT RT 15, 8; ' 
‚ Ж ES OSEE НЕН, PRINT ЯТ 


e 

7 = £ 

в IF Epe LOSE" THER STOP 

=== it $9»2212 THEN PRINT AT 17,1 
I.I 


"qu DNO в cere OH 
Ф P “N 
че 
-: 
Б 
E 
B 
to 
- 
T 
m 
2 
т 
2 
2 
+ 
в 
ч 
~ 
и 


AQ MUS NES i ON 


250 IF ар OR T»-12 THEN STOP 


60 LET Umgz'" 

70 IF МОЧЕ=З THEN PRINT AT 15, 
а "CAN YOU JUMP AGAIN? (Y OR N) 5 
280 IF MOVE=1 THEN INPUT LIS 
"290 PRINT AT 15,2;' 


z 
> 


fü 
fy: rro 


УЕ =@ 
7310 IF UB TS THEN СОХО дайа 


R 
зада FOR D-1 та 4 
са ат AZ) <oK AND D>2 THEN GOT 


e 
веза IF (A(Z+X(D)) =H OR R(Z+X (D) 
Аз AER јан Я (2+2+х (DI3=H THEN LET 


8030 IF ,Q«»0 THEN GOTO 8050 
NEXT D 


D 

© 

o 

9 

; 
NOMROOLKKKKK< 
Serr RAVE AS 


eH H I| H H H JI лер) 


R 1 TO 100 
9120 LET R(Z) =9 
9130 IF Z«?73 AND 2355 AND 2:26? 
AND Z«»68 AND 2‹>69 AND Z<¢>61 AN 
D z«»62 THEN LET Я (2) =C 
9140 IF 2<54 AND Z»42 AND Z2¢34°7 
SNe 24>48 AND Z<>49 THEN LET AE 
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9150 IF Z«41 AND Z»23 RND 7:4 
AND >‹›з5 AND Z«»36 RHND Z«»28 AN 
D Z«»29 THEN LET A(Z?) =H 


NEXT Z 


i" 

H 

z 
омооочит 
— НАЯ ll TER 
00-2991 
чыр 


INT RT 210,4: И 


TERENS": Г 


IF Ys=e"Y" THEN RETLIRh 
LET MOVE =@ 

GOSUB теве 

LET Z=S7+INT (RNDFS) 
LET Ә--?2-ІМТ (RND#2) 
LET AtZ+O) =C 

LET ALZ?) =B 

RETURN 
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If the chore of entering draughts has exhausted you, you can relax a little now with 
some 1K games written by Alastair Gourlay, a member of the users' club from 
Scotland. 


TOWERS OF HANOI 


In this game, you must try to transfer the five rings from tower one (top) to tower 
three (bottom). If at any time you try to move one ring onto another smaller one, 
you will lose the game. The screen shows a continuous total of the number of moves 
taken so far. 


10 DIM A£(3,6) 

20 DIM A(3) 

3g LETT = g 

4g LET AZ(1) = "54321-" 
5g LET AZ(2) = "------ " 
6g LET AZ(3) = AZ(2) 

7g LET А(1) = 5 

ag PRINT "MOVE-";T 

9g PRINT 


198 FOR А = 1 TO 3 
119 PRINT АВ(А) 
120 PRINT 

130 NEXT A 

149 ТЕ AS(3) = "54321-" THEN GOTO 290 
154 PRINT "FROM" 
164 INPUT A 

178 PRINT А 

18d PRINT "TO" 

190 INPUT В 

200 LET T = T + 1 
21g CLS 


228 LET А(В) = А(В) + 1 

238 LET о ала 

24g LET AZ(A,A(A))z"-" 

25g LET A(A) = А(А) - 1 

26g IF А(В) < 2 THEN GOTO 80 

278 IF AZ(8,A(8)) > AS(B,A(B)-1) THEN GOTO 350 


280 GOTO ви 

290 PRINT 

300 PRINT "YOU DIO IT" 
31g PRINT 

320 PRINT "IN ";T;" MOVES" 
33g PAUSE 33 

34g RUN 

35g PRINT 

36g PRINT "YOU CHEATED" 
378 PRINT "YOU LOSE" 
38g PRINT 

39g GOTO 339 


BLOCKOUT 


In this 1K program, you use keys 5 to 8 to dodge the black obstacles and reach the 
target on the right. As you move, you will set up a trail. If you get trapped, you can 
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retrace this and maybe salvage the game. If you hit anything, or go over the edge you 
will be sent back to a starting position on the left, unless you go off the right hand 
edge (when the world ends). Two versions are given. Once you've mastered the slow 
game, try out the more difficult fast version. 


For the fast game use: 


12g 


For the slow game: 


128 


DIMAZ(1) 

LET В = ie #19 + 1 
СЕТ С = INT(RND*8)*19 + 9 
FOR A = 170 8 

PRINT "(nine graphic A)" 


NEXT A 

LET E = @ 

LET D = PEEK 16396+ PEEK 16397*256 
POKE C + D,151 

POKE B + D, 149 

LET A£ = INKEYZ 


IF АЯ = " " THEN GOTO 140 


IF AS = " " THEN GOTO 117 


The following lines are common to both games: 


13g 
14g 
150 
164 
170 
180 
190 


LET E = VAL AS 

POKE 8 + 0,21 

LET B = B - (Es5)«(E-6)*1J- (E=7)*1g+(E=8) 
IF B> 79 THEN LET B = 71 

IF В<1 OR РЕЕК(О + 8) = 128 THEN LET B = 1 
IF sra sir THEN LET B = B - 1 

IF PEEK(B*D)2151 THEN STOP 


Increase for harder game: 


209 
210 
228 
23g 
240 
250 


FOR А = 1 70 2 

LET E = INT(RND*8g) + 1 

IF РЕЕК(Е+0)<> 8 THEN GOTO 199 
POKE E + D, 128 

NEXT A 

GOTO 104 


SALVADOR 


This program allows you to draw pretty pictures on the screen, and is more flexible 
than the ARTIST program To move the cursor around, drawing or 
erasing, use keys 5, 6, 7 and 8. Pressing “O” starts your cursor drawing, pressing 0” 
again turns it into en eraser. 


LET X = @ 
LET Y=@ 
LET B = 1 


IF INKEYS <> "" THEN GOTO 40 
LET АЯ = INKEYS 
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6g ТЕ АЯ = "g" THEN LET В = - B 


78 UNPLOT X,Y 

ag PLOT X,Y 

9g IF В = 1 THEN UNPLOT X,Y 
104 IF A " THEN СОТО 50 


j=" 
119 LET X = X - Ts Ag = A + ( VAL AZ = 8) 
129 LET Y = Y VAL АЯ = 6) + (VAL АЯ = 70) 
13g IF X < d THEN LET X = d 
14d IF X > 41 THEN LET X = 41 
150 ТЕ Y < d THEN LET Y = d 


16g IF Y>33 THEN LET Y = 33 
178 PLOT X,Y 
18g GOTO 5g 


BANDIT 


This game costs you a staggering $5 a shot (just as well you didn't buy an Apple). 
You start with $50. Combinations of (i) the first two; (ii) the first and last; and (iii) 
the first three being equal win amounts depending on the symbol (character codes 
one to seven). When HOLD is displayed, enter a “Y” to hold a reel, otherwise enter а 


space, then press NEWLINE to play the next shot. 


1d LET С = 5g 

28 DIM 415 

3g DIM8Z(3 

4g LET АЯ= “seven graphic A" 
5Џ PRINT " BANDIT " 

6d PRINT АЯ о 

79 PRINT АЯ 

8g PRINT "graphic А"; 

9g FOR X = 1 ТО 3 


104 IF dd = "Y" THEN GOTO 120 
110 LET A(X) = INT(RNO*?) +1 
128 PRINT CHRÉ A(X) ;"graphic А"; 
13g NEXT X 
140 LET ВА = "" 
15g PRINT 
168 PRINT АХ 
179 PRINT АЯ 
18g PRINT "seven inverse spaces'' 
19g LET С=С - 5 
204 ТЕ СС =Ø THEN STOP 
ME OR ^ = Аја) THEN LET C 
A(2)AND A(2) = А(3) THEN LET C 


№ 
N 
ы 
4 
^" 
> 
— 
Ll 
H Hl 


24g PRINT "; Z";C 
25g IF RND < .3 THEN GOTO 290 


26g IF INKEYS = "" THEN GOTO 26g 
27g CLS 

28g GOTO 5j 

29g PRINT 


308 PRINT "HOLD" 
314 INPUT 87 
320 GOTO 270 
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DODGE CITY 


In this, you use the 1 and 4 keys to dodge the black obstacles moving up the screen 
towards you. 


1d POKE 16418,12 20 FOR X = 1 TO 12 

3g PRINT "graphic T";TAB 20; "огарћіст" 

ай NEXT X 50 LET S=@ 68 LET Q = 19 
78 LET Q = Q *(INKEYZ = "4")-(INKEYZ = "1") Bg SCROLL 

9g LET P = PEEK 16396 + PEEK 16397*256 + Q 


100 IF PEEK P <> d THEN GOTO 15g 

11g POKE Р,10 

124 PRINT AT 11,@;"graphic Т"; ТАВ ( INT(RND*18)*1);"tuo 
inverse spaces";TAB 20;"graphic T' 

13g LET S= 541 : 148 GOTO 70 15g PRINT S 


CONVERTING PROGRAMS 
FOR THE NEW ROM AND ZX81 


К is generally fairly easy to convert programs written for old ROM 2Х80“5 so they 
will run on the new ROM machines, although programs which include PEEKing and 
POKEing - especially into REM statements — can cause some difficulties. 


In many cases, you'll find the program runs far better on a new ROM machine. That 
is, it is more effective in giving user prompts, or a moving display, or in screen layout. 
However, the new ROM is not as generous in memory as was the old ROM. Many 1K 
programs will not fit into 1K on the new ROM, because the systems variables for the 
new ROM use up much more of the original 1K than they do on the 4K ROM 
machine. 


MOVING DISPLAY 


Omit a moving display routine completely if inputting an old ROM program to a new 
ROM machine. Change the 'time' figure, usually given in the GOSUB line POKE 
16414, n (where n is the time figure). In other programs, the time is defined as LET 
T 7» n. Using the PAUSE function, set n (as in PAUSE n) to give the most effective 
display. bearing in mind that PAUSE 50 (PAUSE 60 in the U.S.) will hold the display 
for one second, pause 25 (PAUSE 30) for half a second, PAUSE 100 (PAUSE 120) 
for two seconds and so on. You can get a guide as to which figure to place after the 
word PAUSE by keeping in mind that the higher the number used for time in the 
old ROM moving display (up to, and including, 254), the shorter the time the display 
is held. 


RANDOM NUMBERS 
It is more expensive — in memory terms — to generate a random number on the new 


ROM than it is on the old. 


Here are the two versions: 


0:0 ROM NEU ROM 
LET Ја RND(6) LET 3 = INT(RND*6) + 1 
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Some memory is saved by the fact that INT and RND are just single keystroke entries 
on new ROM machines, so each occupies just one byte. However, the multiplication 
sign, and the addition (which stops you getting 0 as part of your sequence of random 
numbers) eat up memory. If you need to generate many random numbers within 
different ranges during the course of a program, it might be worth having a subroutine 
of the type: LET 3 = INT(RND*K) + 1, and assign К each time before GOSUBing, 
Of course, this will take longer than having the line in sequence, but if operating time 
is not vital (and it rarely is unless you're using an animated display), you'll find it 
will save you programming time and — in some programs -- will also save you space 
if you do more in the subroutine than just generate random numbers. 


PRINT RND will give you a sequence of random numbers between zero and one if 
set in an infinite loop such as: 


1d PRINT RNU;" ж"; (where = is a single space) 
20 PAUSE 4g 
3g GOTO 1d 


This sequence can be very useful. For example, the line on the old ROM: IF RND (2) 
= 1 THEN ... can easily be changed to the (almost) identical IF ВМО 5 THEN 
. . . You can also use this to make statistically weighted decisions, so that if you want 
a particular program branch followed, say, about one in three times, you can just say: 
IF RND 34 ТНЕМ.... 


PRINT AT 


There is a neat little routine, which uses the line POKE Y *33 + X + 1 + PEEK(16396) 
* PEEK (16397)*256, n to POKE character n onto the screen of an old ROM ZX80 
at location Y, X (Y being lines down from the top of the screen, X being spaces 
across from the left hand side of the display). The new ROM machines do this 
automatically, and also has the advantage of allowing you to have more than one 
character at this location. I'll explain: 


On the new ROM, you can use the PRINT AT command in the following way. You 
need to give two co-ordinates, Y (counted down from the top of the screen) and X 
(counted across from the left hand side of the screen). These are used in a line as 
follows, which will print the word END at about the middle of the screen: 


10 PRINT AT 140, 14; "ЕМО" 


You separate the two co-ordinates with a comma, and place a semi-colon after the 
second co-ordinate, before the words you want printed. The two co-ordinates can be 
worked out during the course of a program, so the line: PRINT AT B, A/3; “END” is 
acceptable. The function PRINT AT automatically “INTs” a non-integer co-ordinate. 


So, if you need to print at a certain location, or you feel a program would be 
enhanced by a PRINT AT (and it can save a lot of blank PRINT lines, and loops 
which print single spaces across the screen), by all means do so. If you want an 
object to move, you'll have to add a PAUSE n command after the PRINT AT, and 
then -- after the PAUSE -- add a second PRINT АТ“ at the same locations, with 
blanks occupying the same locations as those previously occupied by, for example, 
the word NED. Here's a simple example: 


18 СЕТА = р 

20 LET B = gf 

3g PRINT AT A,8;,"x" 
40 PAUSE 30 
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sø PRINT АТ A, В;" * " (a single space between quotes) 
6g LET А = A + RND 


76 LET 8 = B + RND 
вй IF A > 18 THEN LET A =@ 
9d IF B > 18 THEN LET B =Й 1gg GOTO 30 


This will make an X move erratically (more or less diagonally) across the screen. So 
you can omit the long POKE Y *33 . . . etc and replace it, on new ROM machines, 
with a simple PRINT AT. 


The new ROM also has a TAB function which can start a PRINT statement at any 
point you choose on a line, without you having to use a 'blank spaces' loop. 


OLD ROM NEU ROM 
14 FOR А = 1 TO 1Й PRINT TAB 10; "ЕМО" 
20 PRINT "ж"; 


14 
3d NEXT A Q 
4g PRINT "END" E 


Note that you need a semi-colon after the number before the characters to be printed. 
TAB is a single entry function. 


GRAPHICS 


All the graphics symbols (including inverse graphics, inverse numbers and letters, even 
an inverse space) are available directly from the keyboard on new ROM machines. 
This saves use of the CHR$ (n) idea (although if you do need it, you'll be pleased to 
know that CHR$ is a single entry function). The ‘automatic’ inverse graphics can be 
used to 'dress up' programs by giving, for example, the instructions and user prompts 
in inverse letters. 


To convert others, use the following table, in which the old ROM position is 
followed by the new ROM: 


Shift O, graphic 5; shift W, graphic 6; shift E, 
graphic 1; shift R, graphic 2; shift T, graphic D; 
shift A, graphic A; shift S, graphic T; shift D, 
graphic 4; shift F, graphic 3; shift G, graphic S. 


REM statements, TL$ 


The first address after the word REM on the old ROM is 16427. The equivalent 
address on the new ROM machines is 16514. You'll have to do some careful figuring 
to convert programs which rely heavily on data stored in a REM statement to get 
them to work on a new ROM machine. The TL$ (truncate left) function on the old 
ROM is not available on the new ROM, so user responses which are two or more 
letters, which the computer assesses by stripping the string input character by 
character, will need to be replaced by prompts which allow the user to input (and the 
computer to deal with) the information single character by single character. The 
string arrays on the new ROM (which are actually character arrays) can be used as a 
form of READ/DATA. If you wish to keep your user responses as two letters, 
LET AS = A$(2 TO) is а new ROM equivalent of LET A$ = TLS (A$). 
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INT 


As a general rule, always add the function INT (a single keystroke on the new ROM) 
before a division. That is, if the old ROM program says LET F = A/16, the new ROM 
version should be: LET F - INT(A/16). This is not needed if you're simply using the 
result of a calculation to PRINT AT or to TAB as the INT function is carried out 


automatically. 


SPECIFICATIONS 


Numeric: Any letter, followed by alphanumerics. 
tring: А$ — 25 

'OR-NEXT: A-Z 

Numeric arrays: A-Z 

tring arrays: А$ — 25. 

\rrays 


Jumeric arrays: 


tring arrays: 


more correctly, 
haracter arrays) 


n this list, 


‘п’ dimension, subscript range starts at 1. 


‘n’ dimensions, subscript range starts at 1. 


If the last subscript is omitted it's treated 
as a fixed length string. 


represents a variable. 


,У,2 
л, п 


represent numerical expression. 
represent numerical expressions that are rounded to 


the nearest integer. 


represents an expression. 


represents a string valued expression. 


represents a statement. 


lote that arbitrary expressions are allowed everywhere 
xcept for the line number at the beginning of a statement). 


hus "GOTO 
LEAR 


LS 


ONTINUE 


IM... 


ORA 
TOB 
TEPC 


LN A ** 2" is valid. 


Deletes all variables, freeing the space they 
Occupied. 


(Clear Screen) deletes all PRINT output in the 
display file. 


Resumes execution of the last run program — 
repeats the last statement if an error was 
detected, otherwise restarts at the next one. 
Note that a command (immediate execution) 
Statement counts as a program and so destroys 
the re-entry data. 


Deletes any array or string with the same name, 
sets up space for a new array in the usual way, 
and initialises its element to О or ” "' 


Generally standard, but entirely 
dynamic in its action. 
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Strings 


Undimensioned strings can be any length. 
Can be concatenated (4). 

Substring eg B$ = A$ (2 TO 4). 

Literal strings eg C$ = “QWERTY”. 


Relational operators 


Equal 
Greater than 
Less than 


Less than or equal to 
Greater than or equal to 


Not equal 

PI (3.1415927) 

ВМО А random number between 
Oand 1. 

SGN Yields —1, 0, +1. 

SIN In Radians. 

SOR Square root. 

STR$ Thestringof characters that would 
appear on the screen if x were 
PRINTed. 

TAN In Radians 

USR Converts x to an address in store 
and calls that address as a mchine 
code subroutine. On return, the 
result is the contents of the BC 
register pair. 

VAL Evaluates x as a numerical ex- 
pression (x must not contain the 
quote image character). 

AND Logical AND 

OR Logical OR 

- Negate 


NEXT 


GOSUB n 
GOTOn 


The effect of a NEXT statement is to look up the 
corresponding FOR-variable, increment its value 
by the STEP, check whether the limit is 
exceeded and if not jump to the looping line 
number. 


Transfers control to BASIC subroutine 


Jumps to line n. 


IF X THEN s И x is true (defined to mean greater in absolute 


INPUT v 


LIST 
LIST n 


LOADf 


NEW 


PAUSE n 


PLOTm,n 


POKE m,n 
PRINT... 


PRINT AT 
m,n 

RAND 

RAND n 


RETURN 
RUN 
RUN n 
SAVE f 


SCROLL 


value than 2-112) then s is executed. The 
standard values of true and false as yielded by 
relational operators are 1 and O. 


Outputs the display file to the screen with no 
special INPUT prompt: the rest is standard. 
Cannot be used as a command (immediate 
execution) statement. 


Lists from start of program. 


Lists program starting at line n with program 
cursor pointing at line n. 


Looks for a program called f on tape and loads 
it and its variables. 


Default n = О. Erases BASIC program and 
variables. 


Sends the display file to the TV screen for n 
frames (5O frames per second) or until a key is 
pressed. 


Sends the PLOT position (a system variable) to 
(m, n) and blacks in that pixel. Also changes the 
PRINT position. 


Writes n in byte m in RAM. 


Mostly standard. The display file has 22 lines of 
32 characters each (2 zones of 16 characters) 
and when this is filled it is sent to the TV with 
error 5. CONTINUE carries on with the program 
with no loss of data. 


Moves the PRINT position to line m, character 
n. 


Standard. 


If n is given, this is made the value of the seed 
of the random number generator. 

Return from subroutine 

RUNS the BASIC program. 

CLEAR followed by GOTO n. 

Saves program and variables on tape and calls it 


Scrolls display file up one line, losing top line 
and making space at bottom. 


ABS 
ARCOS 
ARCSIN 
ARCTAN 
CHR$ 
CODE 


COS 
EXP 


INKEY $ 


INT 


LEN 
LN 
NOT 


PEER 


Absolute magnitude 


їп 


Radians 


" " 


ГА 


The character whose code is : 
The code of the first characte 


in 
In 
x 


x (or 0 if x is empty) 
radians 


e. 


Reads the keyboard. Th 
result is a character re 
presenting the key pressed 
otherwise the empty string 


Integer. 


The length of x. 
Natural log 


Exclusive — ORs the first 
byte of x with 113, or th. 
МОТ 0 = 1, NOT 1 —O. 
Unlike the other functions 
NOT has binding power ‹ 
(between AND and ther 
lational operators) so tha 
for instance NOT A = B ha 
the same value as NO' 
(А-В) (and А В). 


The value of the byte i 
store whose address is x 


CONVERSIONS 


SYSTEM VARIABLES: This table is designed 
—— r primarily for POKEing and 
PEEKing into REM statements. 


OLD ROM NEW ROM/ZX81 OLD ROM NEW ROM/ZX81 
16384 16384 

16385 16385 

16386 16391 

16387 16392 

16388 no equivalent 

16389 no equivalent 

16390 16394 16426 16513 
16391 16395 16427 16514 
16392 16400 16428 16515 
16393 16401 16429 16516 
16394 16404 16430 16517 
16395 16405 16431 16518 
16396 16396 16432 16519 
16397 16397 16433 16520 
16398 no equivalent 16434 16521 
16399 no equivalent 16435 16522 
16400 16412 16436 16523 
16401 16413 16437 16524 
16402 16418 16438 16525 
16403 16419 16439 16526 
16404 16420 16440 16527 
16405 16408 16441 16528 
16406 16409 16442 16529 
16407 16427 16443 16530 
16408 16428 16444 16531 
16409 16429 16445 16532 
16410 16432 16446 16533 
16411 16433 16447 16534 
16412 16434 16448 16535 
16413 16435 16449 16536 
16414 16436 16450 16537 
16415 16437 16451 16538 
16416 no equivalent 16452 16539 
16417 no equivalent 16453 16540 
16418 no equivalent 16454 16541 
16419 no equivalent 16455 16542 
16420 no equivalent 16456 16543 
16421 no equivalent 16457 16544 
16422 16406 16458 16545 
16423 16407 16459 16546 
16424 16509 16460 16547 
16425 16510 

16426 16513 

16427 16514 
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CHARACTER SET , 


CODE 


ОС -00 b ою — Ф 


ә аА c o 2 
+ ою ~ © 


Ñ N N N N — > a — = 
ьо N — Ө оо s Фа 


25 


CHARACTER 


space 


ч ФО + O N ә D: 


HEX 
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NXxz«cdHdomovozznrmce-—-romm sog so оъ © с 


RND 
INKEYS 
PI 


not used 


338 


сигзог ир 
cursor down 
cursor left 

cursor right 
GRAPHICS 


117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
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EDIT 
NEWLINE 
RUBOUT 
K/L MODE 
FUNCTION 


ò 
ot ue 
си 


number 
cursor 


Decimal 139 to 191 give 


the inverse of the 


listed character 


139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
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154 
155 
156 
157 
158 
159 
160 
161 

162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 

182 
183 
184 
185 
186 
187 
188 
189 
190 
191 

192 


Nox wie Eo SP POSE ae = x Q m m O om 0 9 9 Wl mom e 


$ 


AT C1 
TAB C2 
not used сз 
CODE C4 
VAL C5 
LEN C6 
SIN C7 
CDS C8 
TAN C9 
ASN CA 
ACS CB 
ATN сс 
LN CD 
EXP CE 
INT CF 
SOR Do 
SGN D1 
ABS D2 
PEEK D3 
USR D4 
STRÉ D5 
CHR$ D6 
NOT D7 
"= D8 
OR D9 
AND DA 
DB 

DC 

DD 

THEN DE 
TO DF 
STEP Ед 
LPRINT E1 
LLIST Е2 
STOP ЕЗ 
SLOW E4 
FAST Е5 
NEW E6 
SCROLL E7 


CLS 
UNPLOT 
CLEAR 
RETURN 
COPY 


$8 8 


EB 
EC 
ED 
EE 
EF 
FO 

F1 

F2 
F3 

F4 
F5 
F6 
F7 
FA 
FB 
FA 
FB 
FC 
FD 
FE 
FF 


FITTING THE NEW ROM 


1. Loosen the five white rivets that hold the upper and lower case halves 
together. A rivet may be loosened by poking the central core up from 
underneath using a knitting needle or similar instrument. 


2. The two case halves should now snap apart by applying finger pressure in 
the area of each rivet in turn. 


3. Both ROMs are susceptible to damage from static electricity so always 
earth yourself by touching a large metallic object before handling either 
ROM. Do not attempt to remove or insert the ROMs with the power 
applied — disconnect the mains adaptor first. The 4K ROM is on the right 
hand side of the circuit board and is easily identifiable as the only chip with 
24 pins. Remove the ROM from its socket by levering it up a little at either 
end with a small knife or screwdriver. Be careful not to damage any of the 
other components. 

4. Insert the new 8K ROM in the ov КОА 
empty socket with pin 1 (see 
Fig. 1) nearest to the modulator 
(the large metal can). The legs 
on the new ROM may be spread Ж 
outa bit in which case they сап т 
be bent by pressing against а 
hard flat surface. Ensure that 
all of the pins go into the holes in the socket and that none get bent 
underneath the ROM. 


5. Remove the two black rivets 
from the keyboard, position 
the new keyboard overlay 
correctly by lining up the holes 
and replace the rivets. (See fig. 
2). Once the rivets are secured, 
it may be necessary to “Бес in” 
the keyboard by smoothing 
over the surface with finger 
pressure. DO NOT attempt to remove the old keyboard from the circuit 
board. 


6. Before replacing the top half of the case, connect up your ZX80 and test 
it. If it doesn't work, check that the ROM pins are all correctly in the 
socket and that the ROM fits securely. Remember that with the new overlay 
you will need to press a little harder on the keyboard. 


7. Replace the top half of the case and secure it with the five white rivets. 
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$9.95 


Getting Acquainted 
With Your ZX81 


... This is undoubtedly the book to read. Full of insight, witty, 
sensible and extremely funny, it eases you into programming 
practically from the word go... 


Personal Computer World 
review of Tim Hartnell’s first book 
MAKING THE MOST OF YOUR 2X80. 


Tim Hartnell's first book became a best-seller because it helped the 
newcomer to computing to explore his or her ZX80 and make the most 
effective use of it. 


In this book, GETTING ACQUAINTED WITH YOUR ZX81, Tim does the 
same for the owner of a ZX81 (or new ROM ZX80). Whether you've never 
touched a computer before the ZX81, or you've had a lot of experience, 
you'll find much of value and interest in this small volume. 


„іп the text, linked to most of the listings is a well thought out 
"hands off" learning approach... As you work your way through 
it, not only does your library grow but also your understanding 
of the BASIC commands which make them possible...A book to 
be recommended to the ZX80 owner... 

Computing Today 


The technique proved so successful for the ZX80 works just as well for 
the ZX81, as this book proves. There are over 70 programs, including a 
complete CHECKERS game, which draws the entire board on the screen. 
You'll even see the ZX81 move its pieces. Captures look particularly effective. 
Other games include: ALIEN IMPLODERS, BLASTERMIND, MOON LANDER, 
BREAKOUT, DIGITAL CLOCK, ROLLER-BALL, DERBY DAY, SPACE-BOY, 
BAKER'S DOZEN and STAR BURST. 


But it is not all games. The book introduces you to a number of ZX81 and 
BASIC language functions and statements, including the use of subroutines, 
PLOT and UNPLOT, SCROLL, arrays and the DIM statement (one:dimensional, 
n-dimensional and string arrays), TAB and PRINT AT, INKEYS, random 
numbers and the PEEK and POKE commands. 


If you're interested in exploring the great mathematical abilities of the 
2Х81, you'll find a host of programs to get you underway, from plotting 
cascading sine waves, to printing out tables and graphs, sorting data, solving 
quadratic and other equations, determining the mean of a list of numbers, 
and more. There is even a program to work out how much interest you must 
pay on a loan. 


Tim Hartnell is co-ordinator of the National ZX80 and ZX81 User's Club 
and has used the experience gained from contact with hundreds of club 
members to write a book to answer most ZX81 owners' needs. 


ISBN 0-916688-33-X 


